运行Excel宏VBScript时出错

Question

从AutoSys运行作业，我收到错误消息。 VBS运行一个excel宏。 VBS代码：

Option Explicit

Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
On Error Resume Next
set xlBook = xlApp.Workbooks.Open("Z:\Confidential Restricted\Weekly_HR_Employees_Macro.xlsm",0, False)
xlApp.Run "Weekly_HR_Employees_Macro.Weekly_HR_Employees_Macro"
xlBook.Close True
xlApp.Quit

set xlBook = Nothing
Set xlApp = Nothing

错误：

Microsoft VBScript runtime error: ActiveX component can't create object: 'Excel.Application'

Answer 1

您在 GetObject 方法中使用 CreateObject 语法。你需要使用：

Set xlApp = CreateObject("Excel.Application")

查看this答案了解详情。

Answer 2

虽然脚本在我的机器上运行，但它不会在AutoSys作业使用的机器上运行。我最终发现Autosys作业使用的机器没有安装Microsoft Office。

Answer 3

您可以使用GetObject（＆＃34; Excel.Application＆＃34;），但您需要确保在使用之前打开excel实例。 GetObject将获得对此Excel打开实例的引用，并允许您使用它。