sql - 使用 VBA 运行多个 SQL 查询 (Oracle) - 为什么这么慢？

Question

我编写了一个简单的 VBA 代码来运行多个 SQL 查询。结果应该会写入 Excel 表格。问题是这个过程需要很长时间才能完成!事实上，逐一运行这些查询会快得多。谁能告诉我如何让它运行得更快？

这是我的代码:

Const strCon As String = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=xxxx)(PORT=xxx))" & _
"(CONNECT_DATA=(SID=RTD))); uid=xxxx; pwd=xxxx;"

Sub RunScripts()

Dim r As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim q1 As String
Dim q2 As String
Dim q3 As String

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

q1 = Worksheets("Data").Range("i28").Value
Set rs = con.Execute(q1)
Worksheets("ACCV Query").Range("A2").CopyFromRecordset rs

Set rs = Nothing
r = Worksheets("ACCV Query").Range("A65536").End(xlUp).Row

'Next SQL Query
q2 = Worksheets("Data").Range("j28").Value
Set rs = con.Execute(q2)
Worksheets("ACCV Query").Range("A" & r).CopyFromRecordset rs

Set rs = Nothing
r = Worksheets("ACCV Query").Range("A65536").End(xlUp).Row

'Next SQL Query
q3 = Worksheets("Data").Range("k28").Value
Set rs = con.Execute(q3)
Worksheets("ACCV Query").Range("A" & r).CopyFromRecordset rs

con.Close
Set con = Nothing
Set rs = Nothing

End Sub

SQL 查询存储在单元格中并命名为 q1、q2 等(它们都有效)。

当我运行两个这样的查询时，它工作得很好，但是一旦我启动了 15 个......宏就永远不会完成工作。每个 SQL 脚本需要几秒钟的时间来运行，因此它应该可以快速运行。

如何才能让它运行得更快？请帮忙!

非常感谢!米。

Answer 1

通常，导致 Excel 速度变慢的原因是不断的屏幕更新和重新计算。每当您更改单元格的内容时，它都会重新计算并刷新屏幕。对于大型插入，这确实会减慢操作速度。幸运的是您可以将其关闭。

在函数的顶部，放置:

Application.Calculation = xlManual
Application.ScreenUpdating = False

然后在函数末尾(以及任何错误处理中)，输入:

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True