Vba 如何从Visual Basic-ADODB连接访问access中数据库的不同位置

我正在使用

ADODB

功能从

visualbasi

c访问

access

中的数据库。其目的是访问特定查询、从单元格复制数据并将其粘贴到Excel中。到目前为止，我已经能够获取查询的标题和第一行数据，但不知道获取剩余信息所需的代码。这就是我所用的：

Dim Convento作为新的ADODB.Recordset
Dim conexionBD作为新ADODB.连接

打开数据库：

conexionBD.openconnectionString:=“Provider=Microsoft.ACE.OLEDB.12.0；数据源=“&BDatos

允许我复制标题和第一行数据的代码是：

For i = 1 to 10
   Cells(1,i).value = Conjunto.Fields(i).Name
   Cells(2,i).value = Conjunto.Fields(i)
Next i

到目前为止，代码工作得非常完美。到目前为止，我正在从标题（for中的第一行）和第一行（第二行）中访问数据集的每个值（来自Access中的数据库）。但是我不知道如何从后面的行中获取信息（函数指定了一个“索引”，在这种情况下，它不允许我使用任何超过每行（10）中总值数的内容）

---

多谢各位

显示所有代码-如果到目前为止您的代码都正常工作，那么您必须有一个OpenRecordset调用吗？之后，将For循环包装在

中，而不是concento.EOF

concento.MoveNext

和

Wend

。我会把这一点放在一个答案中，但你给了我们很少的东西来展示你的所有代码——如果你已经让它工作到目前为止，你必须有一个OpenRecordset调用？之后，将For循环包装在

中，而不是concento.EOF

concento.MoveNext

和

Wend

。我会把这句话写进一个答案，但你给了我们很少的合作机会

'Headers
For i = 1 to 10
   Cells(1,i).value = Conjunto.Fields(i).Name
Next i

'Records
r=2
Do While Not Conjunto.EOF
    For i = 1 to 10
       Cells(r,i).value = Conjunto.Fields(i)
       r=r+1
    Next i
    Conjunto.MoveNext
Loop

'or:
Cells(2,1).CopyFromRecordset Conjunto