【VBA研究】用SQL语句读取EXCEL数据例程

最新推荐文章于 2023-11-21 12:13:54 发布

宋哥

最新推荐文章于 2023-11-21 12:13:54 发布

阅读量1.5w

点赞数 1

分类专栏： VBA_Excel

本文链接：https://blog.csdn.net/iamlaosong/article/details/47042801

版权

本文介绍了一种使用VBA通过SQL语句从Excel工作表中读取数据的方法，强调了不需要打开Excel文件也能操作数据。讨论了连接参数如HDR和IMEX的含义及其对数据处理的影响，并提供了连接多个Excel文件的例子。

摘要由CSDN通过智能技术生成

作者：iamlaosong

Excel工作表中的数据，可以直接处理，不过如果想快的话最好读入到数组处理。前面说过读入数组可以循环读取，也可以直接给数组赋值读取。虽然这个方式速度快，但只适合读取连续的列，对于分开的列，这种方法不可行，不过可以用SQL语句读取到记录集中，然后对记录集进行处理，看下面例程：

Sub tt()
    Dim cnn2, rst2, cmd As Object
    Dim sqls, sql1, stName As String
    
    Set cnn2 = CreateObject("ADODB.Connection")
    Set rst2 = CreateObject("ADODB.Recordset")
    'Set cmd = CreateObject("ADODB.Command")
    
   datfile = "身份证邮件名址1.xls"                         '文件名称
   datFullName = ThisWorkbook.Path & "\" & datfile
   'cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 8.0;Data Source=" & datFullName
   cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended properties=Excel 8.0;Data Source=" &am