M
有一个小的优化,可以像下面这样修改代码,运行过程就会储存在系统日志里面
Sub Automation(path, macro)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(path)
objExcel.Application.Visible = False
objExcel.Application.Run macro
objExcel.ActiveWorkbook.save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
End Sub
Dim shl
Set shl = CreateObject("WScript.Shell")
Call Automation("C:\MengkeLyu\automation\test3.xlsm", "test3.xlsm!main")
Call shl.LogEvent(0,"Test3 has been finished")
Call Automation("C:\MengkeLyu\automation\test4.xlsm", "test4.xlsm!main")
Call shl.LogEvent(0,"Test4 has been finished")
Call Automation("C:\MengkeLyu\automation\test5.xlsm", "test5.xlsm!main")
Call shl.LogEvent(0,"Test5 has been finished")
Set shl = Nothing
WScript.Echo "Finished."
WScript.Quit
然后我们打开系统日志,搜索Event Viewer
Windows logs里面找到Application
点进来找到WSH,General里面就会是我们自己写的log