Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\BAK\Test.xlsm", 0, True)
xlApp.Run "TestOutter"
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
WScript.Quit
posted on 2016-10-27 00:15
萍水相逢 閱讀(148)
評(píng)論(0) 編輯 收藏