ワークブックを開き、対応するマクロを実行するコードを以下に示します。このスクリプトを Excel で実行すると問題なく動作しますが、同じコードで .vbs ファイルを実行してもマクロは実行されません。ファイルをダブルクリックして、「cscript.exe LaunchMacro.vbs」を使用してcmdプロンプトから実行しようとしました。さらに、WScript.Echo を使用してもコマンド ラインに出力されません。ここで何か不足していますか?
ありがとうございました!
Option Explicit
Sub LaunchMacro()
Dim xlApp, xlBook
Dim oShell: Set oShell = CreateObject("WScript.Shell")
oShell.CurrentDirectory = "H:"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Application.Visible = False
Set xlBook = xlApp.Workbooks.Open("H:\SW Tool Resources\test\tester.xlsm")
MsgBox ("File Opened")
xlApp.DisplayAlerts = False
xlApp.Application.Run ("tester.xlsm!Module3.split")
MsgBox ("Application Should Have Run")
xlBook.Saved = True
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub