我有两个文件:
VBS脚本文件
该文件名为Option Explicit
On Error Resume Next
ExcelMacroExample
Sub ExcelMacroExample()
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\MyPath\MsgBox.xltm", 0, True)
xlApp.Run "hello"
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
并包含
MsgBox.xltm
受到str.zfill
回答的启发。
Excel文件
命名为Sub hello()
MsgBox "Hello everybody"
End Sub
且内部有以下Sub,用VBA编写
C:\MyPath
从Trigger.vbs
开始,当我双击Option Explicit
On Error Resume Next
ExcelMacroExample
Sub ExcelMacroExample()
Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\MyPath\MsgBox.xltm", 0, True)
xlApp.Run (R:\MyPath\Module.txt)
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
时,宏正在执行。
问题
现在我想以XLSX格式保存文件Excel(因此它不能包含任何VBA代码)。是否可以修改VBS脚本,包括子代码或(更好)在TXT文件中编写VBA代码并告诉VBS脚本打开它并运行到Excel文件中?
像
这样的东西R:\MyPath\Module.txt
其中{{1}}包含上面列出的VBA代码。