gpt4 book ai didi

vba - 运行 Access 查询并将结果复制到 excel

转载 作者:行者123 更新时间:2023-12-04 21:32:28 35 4
gpt4 key购买 nike

我是 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

最佳答案

看看CopyFromRecordset方法。

Copies the contents of an ADO or DAO Recordset object onto a worksheet, beginning at the upper-left corner of the specified range.


'...
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

关于vba - 运行 Access 查询并将结果复制到 excel,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48381676/

35 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com