造梦西游4手机沙僧:如何用宏关闭Excel2000

来源:百度文库 编辑:高校问答 时间:2024/07/07 16:53:16

Dim aaaa As Excel.Application

Private Sub Workbook_Open()
Set aaaa = CreateObject("Excel.Application")
aaaa.Visible = True
MsgBox "已创建新Excel实例"
aaaa.Quit
MsgBox "已关闭Excel实例"
Set aaaa = Nothing
End Sub