什麼打開我的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