小小的vbs有收尾的帮助,.CLOSE SAVECHANGES:= False

创build一个vbscript来打开一个.csv文件,运行一个macros并打印成pdf。 在“互联网”的帮助下,我获得了成功。 时间稍微清理,这就是我需要你的帮助!

我正在运行以下VBS

Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") '~~> Excel File Path Set xlBook = xlApp.Workbooks.Open("C:\AppFiles\06.2013.csv", 0, True) '~~> Excel Macro location and Name xlApp.Run "PERSONAL.XLSB!Auto" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit 

如前所述,它完成了工作。 HOwever,我想为excel的“你想保存”提示自动回答为NO。 我试图将savechanges:= False添加到xlBook.Close,使它看起来像这样:xlBlook.Close savechanges:= False这给了我预期的声明800A0400错误..

其次,我想发一个closuresPDF文件的命令。 如果这是可能的。 我有一个额外的应用程序正在运行,所以一个质量窗口closures命令是不可能的。 如果有一个closures的突出显示的窗口命令,PDF似乎被突出显示。

我已经search和search,尝试和尝试!

先谢谢你!

在closures工作簿之前添加一行xlBook.Saved = True

 ... xlApp.Run "PERSONAL.XLSB!Auto" xlBook.Saved = True xlBook.Close ... 

Close方法也应该使用

 xlBook.Close False 

因为VBScript不能识别参数名称SaveChanges ,但是由于它的位置(第一个参数),它会将它识别为这个参数。