| 楼主 wqfzqgk |
Dim excel = Me.Application WorkbookAdded(excel.ActiveWorkbook) AddHandler DirectCast(Me.Application, Excel.AppEvents_Event).NewWorkbook, AddressOf WorkbookAdded AddHandler excel.WorkbookOpen, AddressOf WorkbookAdded AddHandler excel.WorkbookActivate, AddressOf WorkbookActivated AddHandler excel.WorkbookDeactivate, AddressOf WorkbookDeactivated |
| 2楼 wqfzqgk |
也可以用pulic withevents 来设置，和VB6中差不多。 |