什么打开我的Excel工作簿？

Question

我正在写一个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 

在“测试”工作簿（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