vba - VBA遍历和编写ADODB Recordset

我是记录集的新手，正在研究从sql服务器检索记录集，然后需要遍历整个过程，将值粘贴到excel电子表格中。

记录集中字段的顺序已经正确，因此我应该能够从一个单元格移动到另一个单元格，并粘贴一个范围内的每个值，但是我不确定到底该怎么做。我知道记录集是正确的，因为我将其输出到文件中，并且一切看起来都井井有条。

到目前为止，这是我的代码：

Public Sub retrieve()

Dim rsTest As ADODB.Recordset
Set rsTest = New ADODB.Recordset
Set rsTest = DataManager.GetData()

Sheets("Planners").Activate
Dim cel As Range
Dim i As Integer
Dim rsFields As Variant

Do While Not rsTest.EOF

   For Each cel In ActiveSheet.Range("A3:H1000").Cells
     For Each rsFields In rsTest.Fields

     cel = rsTest(rsFields.Name)

     Next
  Next

Loop

End Sub

在此先感谢您提供的所有帮助。

最佳答案

如果需要所有记录集字段，则可以执行以下操作：

Public Sub retrieve()
Dim rsTest As ADODB.Recordset

    Set rsTest = DataManager.GetData()

    If Not rsTest.EOF Then
        Sheets("Planners").Range("A3").CopyFromRecordset rsTest
    End If

End Sub

关于vba - VBA遍历和编写ADODB Recordset，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6794135/