Sub コマンドプロンプトでbatファイルを実行する() Set DOSコマンド = CreateObject("WScript.Shell") Call DOSコマンド.Run("C:\test\test.bat") End Sub