excel - "Object Required"声明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")