未知运行​​时错误VB

Question

我有一个VB脚本在Excel文件中运行宏。 代码运行并正确生成结果文件。

Excel宏运行正常。 我得到一个错误的VB代码说， '未知的运行时错误' 后 '代码800A9C68' '线8''Char 2'

代码：

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