Sub RunCommandLineApp() Dim wsh As Object Dim exePath As String Dim input As String Dim output As String Dim command As String ' WScript.Shellオブジェクトを作成 Set wsh = CreateObject("WScript.Shell") ' ...