1

创建 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

如前所述，它完成了工作。但是，我希望excel的“您要保存”提示自动回答为否。我试图将 savechanges:=False 添加到 xlBook.Close 以使其看起来像这样： xlBlook.Close savechanges:=False 这给了我预期的语句 800A0400 错误..

其次，我想发送一个命令来关闭 PDF 文件。如果可能的话。在此过程中，我确实有一个额外的应用程序正在运行，因此无法执行大规模窗口关闭命令。如果有关闭突出显示的窗口命令，PDF 似乎确实被突出显示。

我已经搜索和搜索并尝试过！

先感谢您！

4

2 回答 2

1

该Close方法也应该适用于

xlBook.Close False

因为 VBScript 不能识别 argument-name SaveChanges，但由于它的位置（第一个参数），它会识别为这个参数。

于 2013-07-26T21:06:45.673 回答
0

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

...
xlApp.Run "PERSONAL.XLSB!Auto"
xlBook.Saved = True
xlBook.Close
...
于 2013-07-26T20:56:21.490 回答