SeleniumBasic TableRowClass　Excelテーブル行の操作

Private Sub Set_TableDataSheet()
    Dim tblSh As Worksheet
    Worksheets.Add After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    Set tblSh = ActiveSheet
    tblSh.Name = "TableData"
    Dim DataAry(2)
    DataAry(0) = Array("Id", "Link", "ExpectedTitle", "Result")
    DataAry(1) = Array("1", "https://en.wikipedia.org/wiki/Main_Page", "Wikipedia, the free encyclopedia", "")
    DataAry(2) = Array("2", "https://en.wikipedia.org/wiki/Special:Random", "???", "")

    Dim i As Integer, j As Integer
    For i = 0 To 2
        For j = 0 To 3
            tblSh.Cells(i + 1, j + 1) = DataAry(i)(j)
        Next j
    Next i
End Sub

Private Sub Use_TableRow()
    Dim Table As New Table
    Dim Verify As New Verify
    Dim Driver As New ChromeDriver
    Dim tblRow As TableRow
    
    Table.From ThisWorkbook.Worksheets("TableData").Range("A1"), False  'デフォルトでは、１行目のヘッダはデータ取得しない
    Set tblRow = Table.Item(1)  '1起点
    Debug.Print tblRow.Cell(1)   '1起点
    Debug.Print tblRow.Column(0)  '0起点
    tblRow.Set 0, "Pass"  '0起点
    Debug.Print tblRow.Get(0)  '0起点
    tblRow.Set 0, "Id"  '0起点
    
    Dim Target(): Target() = tblRow.Values
    Debug.Print Target(0)  '0起点
End Sub