Excel：在新應用程序中打開工作簿不會運行Workbook_Open事件

Question

我想從Excel A的代碼中打開ExcelB。

使用此代碼，將在新的Excel應用程序中打開新的Excel，因此您有2個獨立的Excel窗口，但是！ sFileB的Workbook_Open代碼未執行：

Dim myApp As New Excel.Application
myApp.Workbooks.Open sFileB
myApp.Visible = True

如果我在同一應用程序中打開新的Excel，則只有1個Excel窗口打開了2個文件，但是以這種方式打開文件時，可以正確執行Workbook_Open事件：

Workbooks.Open sFileB

我想在新的應用程序中打開新的excel sFileB，當然，我想執行sFileB的Workbook_Open代碼。 您是否知道為什么在第一種情況下不執行Workbook_Open的原因？ 有什么辦法可以強制執行事件？ 也許我做錯了...感謝您的幫助！

Answer 1

用這個

---

Option Explicit

Public Sub OpenXLFileInNewInstance()

    Dim xlApp As Excel.Application, wb As Workbook

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = True

    Set wb = xlApp.Workbooks.Open("D:\Tmp\xTemplate.xlsm")

    'wb.Close False
    'xlApp.Quit

End Sub

Answer 2

感謝Paul的回答，我可以做更多的測試，發現關鍵是要先在myApp.Workbooks.Open sFileB行之前編寫myApp.Visible = True行。

因此，這是確定的工作代碼：

Set myApp = CreateObject("Excel.Application")
myApp.Visible = True
myApp.Workbooks.Open sFileB