小小的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
,但是由于它的位置(第一个参数),它会将它识别为这个参数。