将行从访问表复制到 Excel

Question

我有以下代码

Private Sub CommandButton1_Click()
    Dim cn As Object
    Dim rs As Object
    Dim strSql As String
    Dim strConnection As String
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=C:\ActionList.accdb"
    strSql = "SELECT * FROM Actionlist;"
    cn.Open strConnection
    Set rs = cn.Execute(strSql)
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

我的目的是将某个表中的所有行复制到我的 Excel 工作表中。 我认为这种简单的东西会在互联网上随处可见，但我似乎找不到它。 我希望行从 A2 开始，因为我已经使用 Excel 的内置函数将访问表添加到我的工作表中。 但是，我想手动执行此操作以添加某些过滤器。

Answer 1

你会需要，你所拥有的，但也

for f= 0 to rs.fields.count-1
    range("a1").offset(0,f).value=rs.fields(f).name
next f

range("a2").copyfromrecordset rs

Answer 2

切换 do DAO ，以便CopyFromRecordset()工作：

Private Sub CommandButton1_Click()
    Dim Dbs As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSql As String
    Set Dbs = OpenDatabase("C:\ActionList.accdb")
    strSql = "SELECT * FROM Actionlist;"
    Set rs = Dbs.OpenRecordset(strSql)
    'Add Head lines:
    for i= 0 to rs.fields.count-1
        range("a1").offset(0,i).value=rs.fields(i).name
    next f
    'Add Data:
    range("a2").CopyFromRecordset rs

    'Colse resources:
    rs.Close
    Set rs = Nothing
    Dbs.Close
    Set Dbs= Nothing
End Sub