VBA - 运行时错误 1004“应用程序定义或对象定义错误”

VBA - 运行时错误 1004 "应用程序定义或对象定义错误"

vba
Sub RunTimeErrorExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 假设我们想要访问一个不存在的工作表
    ' 这将触发运行时错误1004
    ws.Range("A1").Value = "Hello, World!"
End Sub

vba
Sub RunTimeErrorExample()
    Dim ws As Worksheet
    Set ws = Nothing
    
    ' 检查工作表是否存在
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Sheet1")
    On Error GoTo 0
    
    ' 如果工作表不存在，则创建一个新的工作表
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Sheets.Add
        ws.Name = "Sheet1"
    End If
    
    ' 写入数据到工作表
    ws.Range("A1").Value = "Hello, World!"
End Sub

vba
Sub RunTimeErrorExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 使用正确的对象方法
    ws.Cells(1, 1).Value = "Hello, World!"
End Sub

vba
Sub RunTimeErrorExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 检查对象属性和方法的拼写
    ws.Range("A1").Valu = "Hello, World!"
End Sub