自动宏的问题
我想实现让EXCEL工作簿关闭时自动保存，而不需要用户手工“保存”按钮。代码如下：
Option Explicit
Dim XlApp As New Excel.Application '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
Private Sub Command1_Click()
XlApp.StatusBar = "四维实业公司人事报表"
End Sub
Private Sub Command2_Click()
'XlBook.Save
XlApp.ThisWorkbook.Save
XlApp.Visible = False
End Sub
Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
Set XlBook = XlApp.Workbooks.Open(App.Path & "\8-1 自动宏.xlsm")
Set XlSheet = XlBook.Worksheets(1)
End Sub
有错误。
我把XlApp.ThisWorkbook.Save
改为XlBook.Save
又出现这个错误。
请问高手，如何解决？谢谢！
