0

oracal DB からデータを取得するための 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
4

1 に答える 1

0

交換

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)
于 2013-09-27T15:42:35.590 に答える