将数组加载到记录集中以循环通过以增量值vba访问

Sub LoadArrayToRecordset()
    Dim arrData() As Variant
    Dim rs As Object
    Dim i As Long
    
    ' 假设数组 arrData 已经包含了要加载到记录集的数据
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 定义记录集的字段
    rs.Fields.Append "ID", 3 ' 字段名称为 "ID"，数据类型为整数
    
    ' 加载数组数据到记录集
    For i = LBound(arrData) To UBound(arrData)
        rs.AddNew
        rs.Fields(0).Value = arrData(i) ' 假设数组中的值为整数类型
    Next i
    
    ' 移动到记录集的第一条记录
    rs.MoveFirst
    
    ' 循环通过增量值访问记录集数据
    Do Until rs.EOF
        ' 访问记录集中的数据
        Debug.Print rs.Fields(0).Value
        
        ' 移动到下一条记录
        rs.MoveNext
    Loop
    
    ' 释放记录集对象
    rs.Close
    Set rs = Nothing
End Sub