从vbs启动excel 2010 worbook时，workbook_open不起作用

我正在使用Excel 2010.我使用下面的代码从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模块的workbook_openmacros：

 Private Sub Workbook_Open() MsgBox "Hello" End Sub 

不运行。

它可以直接打开test.xls，但不能通过VB脚本。

我已经设置开发人员>macros安全>macros设置来启用所有的macros，但是这仍然没有帮助。

任何想法将不胜感激。 非常感谢

Answer 1

最近我面临同样的问题。 这是我做的。

1. 将您的文件保存为.xlsm（marco-enabled excel）。

2. 不用在工作表中编写代码，而是创build新的模块，并将VBA代码复制到名为“Excel_Macro”的函数或子文件中。

3. 在你的VBS代码中包含以下两行（从你打开excel的地方）。

objExcel.Run（ “Excel_Macro”）

这对我有效。