运行访问查询并将结果复制到 excel

Question

我是 VBA 的新手，如果这个问题不符合标准，我深表歉意。

我正在尝试运行 Access 查询并将结果复制到 Excel 工作表。

到目前为止，我已经设法打开 Access DB 并运行查询，但是我找不到任何关于如何将结果复制到 excel 中的信息，至少我找不到可行的解决方案。

请有人指导我正确的方向。

谢谢。

到目前为止，我想出了以下代码。

Sub AccessTest1()

    Dim A As Object
    Application.DisplayAlerts = False
    Set A = CreateObject("Access.Application")

    A.Visible = True
    A.OpenCurrentDatabase ("acess database path")
    A.DoCmd.OpenQuery ("query")
    Application.DisplayAlerts = True


End Sub

Answer 1

看看CopyFromRecordset 方法。

将 ADO 或 DAO Recordset 对象的内容复制到 工作表，从指定范围的左上角开始。

'...
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

Dim rs As Object
Set rs = A.CurrentDb().QueryDefs("QueryName").OpenRecordset()

If Not rs.EOF Then
    ws.Range("A1").CopyFromRecordset rs
End If

rs.Close