提供四種方法:
1、模組寫auto_open過程
Sub auto_open()
call aa
End sub
2、工作簿事件
在ThisWorkBook裡寫
Private Sub Workbook_Open()
End Sub
3、程式級事件
還是在ThisWorkBook裡寫
Private WithEvents xlApp As Excel.Application
Set xlApp = Application
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
Call aa
以上,注意你的aa過程,要在模組中
提供四種方法:
1、模組寫auto_open過程
Sub auto_open()
call aa
End sub
2、工作簿事件
在ThisWorkBook裡寫
Private Sub Workbook_Open()
call aa
End Sub
3、程式級事件
還是在ThisWorkBook裡寫
Private WithEvents xlApp As Excel.Application
Private Sub Workbook_Open()
Set xlApp = Application
End Sub
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
Call aa
End Sub
以上,注意你的aa過程,要在模組中