这个过程:Private Sub App_NewWorkbook(ByVal Wb As Workbook),放在哪儿才有效？有附

hiyou

我说明一下，懒得演示。
1。首先，它是EXCEL.APPLICATION的实例事件
你只要把它关联到APPLICATION就OK
2。问题是APLLICATION在EXCEL里，大多数情况之下，它是一个“唯一实例”
因为它是“有且只有”一个的APPLICATION，它有CLASS类原型，但你不能CREATE生成，“正常”情况下，当你的EXCEL VBA运行里，它就存在了，它是一切EXCEL类实例的上级，PARARES上溯就能找到。

3。怎么关联？
1和2都不是问题，因为在EXCEL里，直接呼叫APPLICATION就完了，我们这么一写
SET myApp=APPLICATION
你的MYAPP对象（变量）立刻就是APPLICATION实例
要做的就是楼主的疑问，怎么让事件和对象关联

所以这就是知识点，在微软的HELP，在EXCEL的CHM，或者说，在VBA的知识库里提到的
请注意这一点：
WITHEVENTS 必须在类和对象实例里使用
（你可以查可与WITHEVENTS相关的帮助）
只要是在类中声明的变量，你就能绑定事件
DIM WITHEVENTS MYAPP AS EXCEL.APPLICATION
SET MYAPP=APPLICATION
而这个类，可是普通的类模块CLASS，也可以是WORKBOOK（THISWORKBOOK）、WORKSHEET模块
因为后者本身与APPLICATION一样，它们是特殊的“类模块”（加上唯一的对象实例）
但在普通的类模块中，你应该注意，必须生成实例对象，这是一个常识，WORKBOOK和SHEET没这个问题，前面说了，那些东东本身就是一个实例。

zhunwang

hiyou 发表于 2012-1-6 17:55
我说明一下，懒得演示。
1。首先，它是EXCEL.APPLICATION的实例事件
你只要把它关联到APPLICATION就OK

长见识了。
谢谢！

mengshu

佩服之至，太强大了，找了好久