2,462
社区成员
发帖
与我相关
我的任务
分享
'要先引用 Excel库
Option Explicit
Dim WithEvents xlWork As Excel.Workbook
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Set xlWork = xlApp.Workbooks.Add
xlWork.Save
End Sub
Private Sub xlWork_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "文件马上就要保存了"
End Sub