excel - Excel 加载项中的 Workbook_Open 事件仅适用于第一个文件打开

Question

Excel 加载项中的 Workbook_Open 事件仅适用于第一个文件，但如果我打开下一个文件保持第一个文件处于打开状态，则它不起作用，谁能帮我解决这个问题？

我在 Thisworkbook 模块中使用了以下代码来创建加载项并在选项中选择了加载项名称

代码:

Sub Workbook_Open()
    MsgBox "Welcome..!!"
End Sub

任何帮助表示赞赏..!!
谢谢

Answer 1

它不适用于第一个文件打开。
ThisWorkbook表示托管 VBA 代码的文档 - 在这种情况下，加载项“工作簿”:当加载项打开时，当 Excel 启动时，将弹出此消息框。

如果您想在任何工作簿打开时运行代码，您需要在 Application 处处理事件。等级。

声明 WithEvents ThisWorkbook 中的变量模块:

Option Explicit
Private AppEvents As Excel.Application

在打开时分配该对象引用:

Private Sub Workbook_Open()
    Set AppEvents = Me.Application
End Sub

现在选择 AppEvents从代码 Pane 顶部的左侧下拉列表中，选择 WorkbookOpen右侧下拉列表中的事件 - 这将创建一个如下所示的处理程序:

Private Sub AppEvents_WorkbookOpen(Wb As Workbook)

End Sub

如果你把 MsgBox Wb.FullName在这里，每次打开工作簿时，您都会收到一个带有新打开的工作簿路径/文件名的消息框。