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

zhunwang

Private Sub App_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "App_NewWorkbook"
End Sub

以上过程来自：Excel 开发人员参考（Excel  2007 的vba的帮助文件）
其作用是：当新建一个工作簿时，弹出提示框。
问题是：
以上过程放在哪儿才能生效呢？
现在放在：模块1，一点效果也没有。
333333.rar (11.62 KB, 下载次数: 18)

2012-1-4 18:09 上传

点击文件名下载附件

蓝桥玄霜

这个过程不是系统自带的事件吧？可能是类里面自定义的事件。

zhunwang

蓝桥玄霜 发表于 2012-1-4 18:23
这个过程不是系统自带的事件吧？可能是类里面自定义的事件。

请您在附件里帮我改改。主要是不知道把它放哪儿。
使其能起作用。
谢谢。
以下是截图，做了点改动。

蓝桥玄霜

2007版本有一个：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    MsgBox "App_NewWorkbook"
End Sub
放在Thisworkbook里面。

taller

把代码写入ThisWorkBook模块中,运行Test之后，在Excel添加新工作簿都会出现提示。

1. Public WithEvents myApp As Application
   
2. 
   
3. Sub myApp_NewWorkbook(ByVal Wb As Workbook)
   
4.     MsgBox "App_NewWorkbook"
   
5. End Sub
   
6. 
   
7. Sub Test()
   
8.     Set myApp = Application
   
9.     Application.Workbooks.Add
   
10. End Sub
    
11. 
    
12. Sub ReleaseApp()
    
13.     Set myApp = Nothing
    
14. End Sub
    

复制代码

zhunwang

蓝桥玄霜 发表于 2012-1-4 20:43
2007版本有一个：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    MsgBox "App_NewWorkbook"

Excel  2007 的vba的帮助文件中的代码是这样：
Private Sub App_NewWorkbook(ByVal Wb As Workbook)   
End Sub

而非您所说的：
Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

问题的重点不在于弹出提示框，而在于
Private Sub App_NewWorkbook(ByVal Wb As Workbook)   
End Sub
放在哪儿起作用？

另外，下面的代码可自动产生：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
End Sub
但是，
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
   
End Sub
怎样自动产生？

zhunwang

taller 发表于 2012-1-5 10:01
把代码写入ThisWorkBook模块中,运行Test之后，在Excel添加新工作簿都会出现提示。

那我原来的：
Private Sub App_NewWorkbook(ByVal Wb As Workbook)   
End Sub
哪儿去了，您没用啊？
我的意思是
Private Sub App_NewWorkbook(ByVal Wb As Workbook)   
End Sub
能不能像
Private Sub Workbook_NewSheet(ByVal Sh As Object)
End Sub
一样。在过程里添点代码，事件发生就执行。一个过程就搞定。
您怎么整出三个过程来了。
不过，要谢谢您。辛苦了。
另：WithEvents 是什么东西？

taller

您的App变成了myApp，事件只用一个过程，但是需要实例化，所以有了Test过程，最后一个过程是释放系统资源，您不喜欢，可以不用{:soso_e113:}

zhunwang

taller 发表于 2012-1-5 21:25
您的App变成了myApp，事件只用一个过程，但是需要实例化，所以有了Test过程，最后一个过程是释放系统资源， ...

那么.....
Private Sub App_NewWorkbook(ByVal Wb As Workbook)   
End Sub
不能像
Private Sub Workbook_NewSheet(ByVal Sh As Object)
End Sub
一样。在过程里添点代码，事件发生就执行。一个过程就搞定。
用您的方法喽。
谢谢

liucqa

学习