excel - VBA - 弹出消息以保存更改

Question

我有 VBA 脚本来从口腔数据库中检索数据。脚本用于打开现有文件，然后在 excel 中做一些时髦的事情。问题是弹出消息说“你想保存更改吗？” 如何避免此弹出消息

'open a new worksheet in Excel
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\combbn\Desktop\Reportt\Quary_Result.xls")
Set objSheet1 = objExcel.ActiveWorkbook.Worksheets(1)
objWorkbook.Activate

objWorkbook.SaveAs "C:\Desktop\Reportt\Quary_Result3.xls"
objWorkbook.Application.Quit
Set objWorkbook = Nothing

Answer 1

代替

objWorkbook.SaveAs "C:\Desktop\Reportt\Quary_Result3.xls"
objWorkbook.Application.Quit
Set objWorkbook = Nothing

和

objWorkbook.SaveAs "C:\Desktop\Reportt\Quary_Result3.xls", FileFormat:=56
objWorkbook.Close SaveChanges:=False
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

还要注意 FileFormat 的使用。这些是 Excel 2007-2013 中的主要文件格式：

50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)