VBA: Невозможно реализовать Excel VBS за пределами excel

Question

У меня есть код, показанный ниже, который открывает книгу и запускает соответствующий макрос. Запуск этого скрипта через excel работает просто отлично, но запуск файла .vbs с тем же кодом не запускает макрос. Я попробовал дважды щелкнуть файл и запустить его через подсказку cmd с помощью «cscript.exe LaunchMacro.vbs». Кроме того, использование 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 

Answer 1

VBS и VBA различны.

Попробуйте поставить только этот код в файл VBS и запустить его:

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 

Я не проверял, и очень вероятно, не удастся. Но это должно быть в правильном направлении.

Edit:

Вот то, что должно помочь вам начать работу с VBS: скрипт может определить некоторые функции, но работает только их, если вы их называете.

Например, это будет работать только Sub1:

Sub Sub1() 
    MsgBox "1" 
End Sub 
Sub Sub2() 
    MsgBox "2" 
End Sub 
Sub1