Как закрыть открытый файл скриптом Windows? - PullRequest
2 голосов
/ 09 ноября 2010

Я хочу настроить скрипт для ежедневного запуска в качестве запланированной задачи Windows.Сценарий должен открыть электронную таблицу Excel, подождать, пока он запустит макрос (который настроен на запуск при каждом открытии электронной таблицы), а затем закрыть файл после того, как макрос завершит сохранение изменений.Сам макрос не займет много времени для запуска.Если мой сценарий может подождать около минуты, прежде чем снова закрыть файл, этого будет достаточно.

1 Ответ

2 голосов
/ 16 ноября 2010

Полностью непроверенный код, в основном написанный из памяти, но, надеюсь, достаточно для начала работы:

Set app = GetObject(, "Excel.application") ' assumes Excel is already running, otherwise use Set app = CreateObject("Excel.Application")
app.Visible = True ' useful while testing
app.run "MyMacro", "Param1" ' run the MyMacro macro with a string parameter "Param1"
WScript.Sleep(60000) ' wait 60,000 ms = 1 minute
app.ActiveDocument.Close
app.Quit
Set app = Nothing
...