Question

我有VBA脚本来检索来自oracal DB的数据。该脚本使用打开现有文件，然后在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)

VBA - 弹出消息以保存更改

1 个答案: