vba - VBA Excel GetObject 问题 - 运行时错误 91 - 对象变量或未设置块变量

Question

我收到一个错误：

“运行时错误 91：对象变量或未设置块变量”。

调试突出显示以下行MsgBox()：

Sub CATMain()

    Dim xlApp As Excel.Application    
    Set xlApp = VBA.GetObject("", "Excel.Application")    
    Dim exlBook As Excel.Workbook
    Set exlBook = xlApp.ActiveWorkbook    
    MsgBox exlBook.Name

End Sub

有什么问题？

标签： vbaexcelobjectcatia

Answer 1

""从您的代码中删除VBA.GetObject()它应该可以工作：

Sub TestMe()

    Dim xlApp As Excel.Application        
    Set xlApp = VBA.GetObject(, "Excel.Application")        
    Dim exlBook As Excel.Workbook
    Set exlBook = xlApp.ActiveWorkbook        
    MsgBox exlBook.Name

End Sub

MSDN 获取对象。这些是 的参数GetObject()：

• 路径名 - 可选；变体（字符串）。包含要检索的对象的文件的完整路径和名称。如果省略路径名，则需要类。

• 类可选；变体（字符串）。表示对象类的字符串。