Question

创建vbscript以打开.csv文件，运行宏并打印到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错误..

其次，我想发送一个命令来关闭PDF文件。如果可能的话。我正在运行其他应用程序，因此无法进行质量窗口关闭命令。如果有一个关闭突出显示的窗口命令，PDF似乎会突出显示..

我搜索并搜索并尝试过尝试过！

提前谢谢！

Answer 1

Close方法也适用于

xlBook.Close False

因为VBScript无法识别参数名SaveChanges，但由于其位置（第一个参数），它会将其识别为此参数。

Answer 2

在关闭工作簿之前添加一行xlBook.Saved = True：

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

带有最后润色的小vbs帮助，.CLOSE SAVECHANGES：= False

2 个答案: