不明なランタイムエラーVB

Question

Excelスクリプトでマクロを実行するVBスクリプトがあります。 コードが実行され、結果ファイルが正しく生成されます。

Excelマクロは、それ自身で正常に動作します。 私は '不明なランタイムエラー' 'コード800A9C68' '行8''Char 2'

コード言っVBコードの後に​​エラーが表示されます。

Dim xlApp, xlBook 
Set xlApp = CreateObject("Excel.Application") 
xlApp.DisplayAlerts = False 
Set xlBook = xlApp.Workbooks.Open("Z:\Confidential Restricted\Weekly_HR_Employees_Macro.xlsm", False) 

'msgbox("3") 

xlApp.Run "Weekly_HR_Employees_Macro.Weekly_HR_Employees_Macro" 

'xlbook.Save 
'xlBook.Close False 
'set xlBook = Nothing 

xlApp.Quit 
'Set xlApp = Nothing 

Answer 1

は以下のVBScriptを試してみてください。

Option Explicit 

Dim xlApp, xlBook 
Set xlApp = CreateObject("Excel.Application") 

set xlBook = xlApp.Workbooks.Open("Z:\Confidential Restricted\Weekly_HR_Employees_Macro.xlsm",0, False) 
xlApp.Run "Weekly_HR_Employees_Macro" 
xlBook.Close True 
xlApp.Quit 

set xlBook = Nothing 
Set xlApp = Nothing