Sub CopyAndRunSQL() Dim sourceFolder As String Dim destinationFolder As String Dim exeFileName As String ' コピー元のフォルダーとファイル名を指定します sourceFolder = "C:\path\to\source\folder\" ' ここにSQL.exeの存在するフォルダーのパスを…

Sub CopyAndImportCSV() Dim sourceFolder As String Dim sourceFileName As String Dim destinationPath As String Dim destinationWorkbook As Workbook Dim newWorksheet As Worksheet ' サーバー上のAフォルダーのパスを設定 sourceFolder = "\\10.30.33…

Redirecting VBA 見栄えの良いユーザーフォームを作るコツ - t-hom’s diary

Sub CopySheetsToExistingWorkbooks() Dim SourceWorkbook As Workbook Dim ASheet As Worksheet Dim BSheet As Worksheet Dim TargetAWorkbook As Workbook Dim TargetBWorkbook As Workbook ' S.xlsmを開く Set SourceWorkbook = Workbooks.Open("S.xlsm")…

Private Sub Workbook_Open() UserForm1.Show End SubPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) '選択した値を取得 Cells(2, "I") = ListBox1.TextEnd SubPrivate Sub UserForm_Initialize() Dim lastrow As Long lastrow = Sh…

Sub InputCode() Dim InputCode As Variant Dim lastRow As Long Dim inputName As Variant Dim inputQuantity As Variant Dim recordSheet As Worksheet Dim listSheet As Worksheet Dim i As Long ' 記録シートを選択 Set recordSheet = Worksheets("記録"…

Excelで簡単なソフトを作るStep2｜簡単な入出庫や在庫管理 - イーテック開発ブログ

Sub OracleConnectionExample() Dim conn As Object Set conn = CreateObject("ADODB.Connection") ' 接続文字列の設定 Dim connectionString As String connectionString = "Provider=OraOLEDB.Oracle;Data Source=YourOracleDB;User ID=YourUsername;Passw…

Set objShell = CreateObject("WScript.Shell") strFilePath = ".\ABC.pdf"Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFilePath) Then objShell.Run "rundll32.exe shell32.dll,ShellExec_RunDLL " & Chr(34) & strF…

Sub CopySheetsFromFolders() Dim sourceFolder As String Dim targetWorkbook As Workbook Dim sourceWorkbook As Workbook ' Bsukei.xlsmのパスを取得 'targetWorkbookPath = ThisWorkbook.Path '画面更新停止、警告画面停止 Application.ScreenUpdating =…

kintone 導入効果 kintone（キントーン）とは？特徴やメリット・できることをわかりやすく解説社内ポータル事例 ポータル開発事例（kintone）｜コムチュア株式会社kintonenのセキュリティ kintoneってセキュリティどう？本当に信用できるか調べてみた | ペパ…

Sub CopySheet() Dim srcWorkbook As Workbook Dim dstWorkbook As Workbook Dim srcSheet As Worksheet Dim dstSheet As Worksheet ' エラーハンドリング On Error GoTo ErrorHandler ' A.xlsmを開く Set srcWorkbook = Workbooks.Open("C:\Path\to\A.xlsm"…

Sub PrintAllPDFsInFolder() Dim FolderPath As String Dim FileName As String Dim objShell As Object Dim objFolder As Object Dim objFile As Object ' フォルダーのパスを指定 FolderPath = ThisWorkbook.Path ' シェルオブジェクトを作成 Set objShell…

■VLOOKUPで抽出 =VLOOKUP(B14,INDIRECT(C$13&$B$12),2,FALSE)■VBA Sub MergeExcelFiles() Dim folderPath As String Dim fileName As String Dim wbSource As Workbook Dim wbDest As Workbook Dim wsSource As Worksheet Dim wsDest As Worksheet ' フレー…

Sub ExecuteOracleQuery() Dim conn As Object ' Connectionオブジェクト Dim rs As Object ' Recordsetオブジェクト Dim strConn As String ' 接続文字列 Dim strSQL As String ' SQLクエリ ' 接続文字列を設定(tnsnames.ora使用) 'strConn = "Provider=Ora…