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…