为什么使用SQL获取工作表数据的速度比普通方法更慢？

rhzwan123

要打开一个65535行的Excel表，并提取数据到数组中。
用ADO处理的时间竟然是普通处理方法(Workbooks.Open)的4倍以上。
是不是我的代码有问题啊？请大神们看看。

关键代码如下：

1. strSQL = "SELECT * FROM [Sheet1$]"
   
2. T0 = Timer
   
3. Cnn.Open str_Cnn & aryWb(1)
   
4. Brr = Cnn.Execute(strSQL).GetRows()
   
5. Cnn.Close
   
6. T1 = Format(Timer - T0, "0.0000")
   
7. 
   
8. T0 = Timer
   
9. Set Wb = Workbooks.Open(aryWb(1))
   
10. Crr = Wb.Worksheets("Sheet1").UsedRange
    
11. Wb.Close False
    
12. T2 = Format(Timer - T0, "0.0000")
    
13. 
    
14. Set Cnn = Nothing
    
15. Set Wb = Nothing
    
16. Debug.Print T1, T2

复制代码

结果为：
2.9375        0.6875

【补充】如果打开的Excel文档比较小的话，用ADO打开处理还是要比workbooks.Open要快的。

WANT-T

是你的实验验证过程有问题！

rhzwan123

WANT-T 发表于 2023-5-12 11:14
是你的实验验证过程有问题！

能具体说明是哪里有问题吗？

铁了心抗日

实测65536行，SQL获取快。

rhzwan123

铁了心抗日 发表于 2023-5-12 14:52
实测65536行，SQL获取快。

谢谢，能提供一下代码和Excel表吗？我也跑一下。

rhzwan123

铁了心抗日 发表于 2023-5-12 14:52
实测65536行，SQL获取快。

这个表要超过10列，才会有明显差别。列数越多，差别越大。

铁了心抗日

代码如下，数据自己模拟吧，超过10列依然是SQL快。

Sub test()
    Set cnADO = CreateObject("ADODB.Connection")
    strSQL = "SELECT * FROM [Sheet1$]"
    T0 = Timer
    cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
        & "Extended Properties=Excel 12.0;" _
        & "Data Source=" & ThisWorkbook.Path & "\total.xls"
    Brr = cnADO.Execute(strSQL).GetRows()
    cnADO.Close
    T1 = Format(Timer - T0, "0.0000")
   
    T0 = Timer
    Set Wb = Workbooks.Open(ThisWorkbook.Path & "\total.xls")
    Crr = Wb.Worksheets("Sheet1").UsedRange
    Wb.Close False
    T2 = Format(Timer - T0, "0.0000")
   
    Set Cnn = Nothing
    Set Wb = Nothing
    Debug.Print T1, T2
End Sub

z865593849

我只知道超过万行的数据用sql就对了，毕竟sql能处理千万行数据

mmwwdd

实际在excel中用SQL并不是首选

rhzwan123

铁了心抗日 发表于 2023-5-12 16:00
代码如下，数据自己模拟吧，超过10列依然是SQL快。

Sub test()

7.9805        0.9609

6万行数据，我的电脑跑的结果。不知道问题出在哪里了？