传入工作表时出现VBA运行时错误'9‘(下标超出范围)

Dim myArray(1 To 10) As Integer
myArray(5) = 10 ' 正确
myArray(11) = 10 ' 错误，会导致运行时错误'9'

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 通过名称访问
' 或者
Set ws = ThisWorkbook.Sheets(1) ' 通过索引访问，注意索引从1开始

For i = 1 To 10
    ' 处理数组或工作表的代码
Next i

Sub Example()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 确保工作表存在
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Sheet1")
    If ws Is Nothing Then
        MsgBox "工作表不存在"
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 遍历工作表中的数据
    For i = 1 To 10
        ' 假设每个工作表有10行数据
        If ws.Cells(i, 1).Value <> "" Then
            ' 处理数据
        Else
            ' 数据为空，跳过
            Exit For
        End If
    Next i
End Sub