VBA 对象不支持此属性或方法

VBA (Visual Basic for Applications) 是一种用于 Microsoft Office 套件中的宏编程语言。它允许用户通过编写代码来自动化重复性任务，增加工作效率。然而，在使用 VBA 进行编程时，有时会遇到错误信息："对象不支持此属性或方法"。本文将探讨这个常见的错误消息，并提供解决方法。

vba
Sub Example()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 检查工作簿是否已打开
    If IsWorkbookOpen("Workbook1.xlsx") Then
        Set wb = Workbooks("Workbook1.xlsx")
        ' 检查工作表是否存在
        If WorksheetExists(wb, "Sheet1") Then
            Set ws = wb.Worksheets("Sheet1")
            ' 在工作表上执行操作
            ws.Range("A1").Value = "Hello, World!"
        End If
    End If
End Sub
Function IsWorkbookOpen(ByVal wbName As String) As Boolean
    Dim wb As Workbook
    
    On Error Resume Next
    Set wb = Workbooks(wbName)
    On Error GoTo 0
    
    IsWorkbookOpen = Not wb Is Nothing
End Function
Function WorksheetExists(ByVal wb As Workbook, ByVal wsName As String) 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