2
我想設置一個腳本作爲Windows計劃任務每日運行。該腳本應打開一個Excel電子表格,等待它運行一個宏(設置爲每次打開電子表格時運行),然後在宏完成保存更改後關閉該文件。宏本身不會花很長時間才能運行。如果在再次關閉文件之前,我的腳本可以等待大約一分鐘,那應該就足夠了。如何用Windows腳本關閉打開的文件?
我想設置一個腳本作爲Windows計劃任務每日運行。該腳本應打開一個Excel電子表格,等待它運行一個宏(設置爲每次打開電子表格時運行),然後在宏完成保存更改後關閉該文件。宏本身不會花很長時間才能運行。如果在再次關閉文件之前,我的腳本可以等待大約一分鐘,那應該就足夠了。如何用Windows腳本關閉打開的文件?
完全未經測試的代碼,而且大多從內存中寫的,但希望足以讓您開始:
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