Public Sub 技巧1_042()
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True
End Sub
关闭不保存,不显示警告信息框
Public Sub 技巧1_044()
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
保存为指定路径和文件名的Excel2003文件
ActiveWorkbook.SaveAs Filename:="D:\sfg.xls", FileFormat:=xlExcel5
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True
End Sub
关闭不保存,不显示警告信息框
Public Sub 技巧1_044()
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
保存为指定路径和文件名的Excel2003文件
ActiveWorkbook.SaveAs Filename:="D:\sfg.xls", FileFormat:=xlExcel5