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