excel - VBA:使用 Excel 查询 Access。为什么这么慢？

Question

我在网上找到了这段代码来查询Access并将数据输入到excel(2003)中，但它比应该的要慢得多:

Sub DataPull(SQLQuery, CellPaste)
Dim Con As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim DBlocation As String, DBName As String
Dim ContractingQuery As String

If SQLQuery = "" Then

Else
    DBName = Range("DBName")
    If Right(DBName, 4) <> ".mdb" Then DBName = DBName + ".mdb"

    DBlocation = ActiveWorkbook.Path
    If Right(DBlocation, 1) <> "\" Then DBlocation = DBlocation + "\"

    Con.ConnectionString = DBlocation + DBName
    Con.Provider = "Microsoft.Jet.OLEDB.4.0"
    Con.Open

    Set RST = Con.Execute(SQLQuery)
    Range(CellPaste).CopyFromRecordset RST

    Con.Close
End If

End Sub

问题是这段代码需要很长时间。如果我打开 Access 并在其中运行查询，则大约需要 1/10 的时间。有没有办法加快这个速度？或者有什么原因可能需要这么长时间？我所有的查询都是简单的选择查询，带有简单的 where 语句并且没有连接。甚至是 select * from [test]查询花费的时间比它应该的要长得多。

编辑:我应该指定该行
Range(CellPaste).CopyFromRecordset RST
是一个需要很长时间的人。

Answer 1

我不是专家，但我运行几乎完全相同的代码，结果很好。一个区别是我使用 Command对象以及 Connection目的。你在哪里

Set RST = Con.Execute(SQLQuery)

我

Dim cmd As ADODB.Command
Set cmd.ActiveConnection = con
cmd.CommandText = SQLQuery
Set RST = cmd.Execute

我不知道这是否或为什么会有所帮助，但也许会？ :-)