从VBS启动Excel 2010工作簿时workbook_open无法正常工作

Question

我正在使用Excel2010。我正在使用以下代码从VBS（VB脚本）打开test.xls文件：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("E:\test\test.xls")
objExcel.Application.Visible = True

工作簿test.xls可以正常打开，但是我在Thisworkbook Module中放置的workbook_open宏：

Private Sub Workbook_Open()
MsgBox "Hello"
End Sub

不运行。

当我直接打开test.xls而不是通过VB脚本时，它可以工作。

我已将“开发人员”>“宏安全性”>“宏设置”设置为“启用所有宏”，但这仍然无济于事。

Answer 1

最近，我遇到了同样的问题。 这是我所做的。

1. 将文件另存为.xlsm（已启用marco的excel）。

2. 无需在工作表中编写代码，而是创建新模块，然后将VBA代码复制到名称为“ Excel_Macro”的函数或子程序中。

3. 在VBS代码中包含以下两行（从此处打开excel）。

objExcel.Run（ “Excel_Macro”）

这对我有用。