我为需要在打开工作簿时运行代码的客户端创建工作簿模板。问题是我的Worksheet_Activat事件处理程序没有运行。
ThisWorkbook中的代码:
Private Sub Workbook_Open()
Application.EnableEvents = True
MsgBox "Hello World!"
ThisWorkbook.Activate
Sheets("Product").Activate
Sheets("Raw Data").Activate
End Sub
此代码运行正常,一旦我创建模板实例,就会出现MsgBox。
工作表中的代码(它们与MsgBox的不同字符串相同):
Private Sub Workseet_Activate()
MsgBox "RawData"
End Sub
当通过代码激活工作表时,代码不会运行,当我手动更改工作表时也不会运行代码。什么会导致事件处理程序不处理事件?
答案 0 :(得分:6)
您有拼写错误:Workseet_Activate()
应为Worksheet_Activate()
。