VBA 和“类不支持自动化或不支持预期的接口”

使用VBA编程时，我们可能会遇到一个常见的错误信息：“类不支持自动化或不支持预期的接口”。这个错误通常发生在我们尝试使用某个对象的方法或属性时，但该对象并不支持自动化或者没有实现我们所期望的接口。本文将为大家介绍这个错误的原因，以及如何解决这个问题。

vba
Sub Test()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 打开工作簿
    Set wb = Workbooks.Open("C:\test.xlsx")
    
    ' 确保工作表存在
    If WorksheetExists("Sheet1", wb) Then
        ' 获取工作表对象
        Set ws = wb.Worksheets("Sheet1")
        
        ' 调用工作表的方法
        ws.Range("A1").Value = "Hello, World!"
    Else
        MsgBox "工作表不存在！"
    End If
    
    ' 关闭工作簿
    wb.Close SaveChanges:=True
End Sub
Function WorksheetExists(wsName As String, wb As Workbook) As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = wb.Worksheets(wsName)
    On Error GoTo 0
    
    WorksheetExists = Not ws Is Nothing
End Function