VBS脚本在外部模块中执行VBA宏

时间:2018-01-25 13:14:35

标签: excel vba excel-vba vbscript

我有两个文件:

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代码。

0 个答案:

没有答案