Excel事件不工作
Excel事件不工作
提问于 2016-06-10 01:48:05
我有一个宏，可以从另一个带有事件的工作簿创建一个工作簿。我已经创建了一个名为eventWB的自定义工作簿类来添加事件。这很好用，除了当我关闭新创建的工作簿并重新打开它时，事件不起作用。我尝试将以下函数添加到新工作簿的ThisWorkbook文件中，但它似乎没有启用事件。我添加了一个警告，以确保函数正常工作，并且工作得很好。如果你有任何想法，请让我知道。
ThisWorkbook中的函数：
Sub Workbook_Open()
Dim Newbook As New eventWB
Set Newbook.Workbook = ActiveWorkbook
Set Newbook.m_events = Application
Set thisWB = Newbook.Workbook
Application.EnableEvents = True
End Sub回答 1
Stack Overflow用户
发布于 2016-06-11 01:48:23
我通过在模块im上添加一个函数来解决这个问题，方法是：
Function reopenResetVariables()
Application.EnableEvents = False
Dim thisWB As Workbook
Set Newbook.Workbook = ActiveWorkbook
Set Newbook.m_events = Application
Set thisWB = Newbook.Workbook
Application.EnableEvents = True
End Function在打开excel时，在Workbook_Activity函数中添加调用reopenResetVariables
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37732920
复制相关文章
相似问题
腾讯云开发者
