莫言文学奖获奖作品:如何用宏关闭Excel2000

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 02:02:22

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