excel - 声明 Excel.Application 对象后出现“需要对象”错误

Question

我在编写 VBScript 以在 Excel 之外运行宏时收到“需要对象”错误。代码在此消息下方。声明后xlApp = CreateObject("Excel.Application")，对对象的任何尝试操作xlApp都将引发“需要对象”错误。

我是否在声明声明中遗漏了某些内容，或者我需要制作某种导入/包含声明？

Sub temp()

  Dim xlApp, xlBook
  Dim oShell: Set oShell = CreateObject("WScript.Shell")
  oShell.CurrentDirectory = "H:"
  MsgBox (oShell.CurrentDirectory)

  xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True 'error is thrown here
  xlBook = xlApp.Workbooks.Open("H:\SW Tool Resources\test\tester.xlsm")
  MsgBox ("Success")

End Sub

Answer 1

您需要将Set您的对象变量添加到 Excel 的新实例中：

Set xlApp = CreateObject("Excel.Application")