离菏泽近的旅游景点:如何用宏关闭Excel2000

来源:百度文库 编辑:神马品牌网 时间:2024/05/15 08:45:45

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