什么打开我的Excel工作簿？

我正在编写一整套VBScript来自动处理Excel工作簿。

这些工作簿包含在工作簿打开时运行的VBA代码。 我需要VBA展现不同的行为，当用户打开它，当我的脚本打开它。

有没有人有任何想法如何区分这两种情况？ （我不能编辑VBS和VBA）

Answer 1

 Sub Test() 'This is VBA but should easily convert to vbscript... Dim wb As Workbook Application.EnableEvents = False Set wb = Workbooks.Open("C:\local files\tester.xlsm") Application.EnableEvents = True Application.Run "'" & wb.Name & "'!ThisWorkBook.IsAutomated" Application.Run "'" & wb.Name & "'!ThisWorkBook.Workbook_Open" End Sub 

在“testing人员”工作簿（ ThisWorkBook代码模块）中：

 Private m_automated As Boolean Public Sub IsAutomated() m_automated = True End Sub Public Sub Workbook_Open() If m_automated Then MsgBox "automated" Else MsgBox "not automated" End If End Sub