国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

提供四種方法：

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過程，要在模塊中