码迷,mamicode.com
首页 > 数据库 > 详细

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

时间:2015-07-24 18:27:57      阅读:186      评论:0      收藏:0      [点我收藏+]

标签:

作者: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=" & datFullName
   
   cnn2.Open cnnstr
   Windows(datfile).Activate
   stName = ActiveSheet.Name
   sqls = "SELECT 邮件号,收件人姓名 FROM [" & stName & "$]"
   Debug.Print sqls
   Set rst2 = cnn2.Execute(sqls)
   While Not rst2.EOF
       Debug.Print rst2(0) & rst2(1)
       rst2.movenext
   Wend

End Sub

几点说明:

1、本例程中被读取的数据文件“身份证邮件名址1.xls”是打开的,主要是为了取工作表名称。就读取数据本身而言,并不需要打开Excel文件,如果工作表名称是确定的,就可以不用打开;

2、默认工作表第一行是字段名,SQL语句中就是用这些字段名定位的,如程序中的“邮件号”、“收件人姓名”等。如果没有字段名,连接参数中需要增加HDR=NO

3、连接参数中的“Extended properties=Excel 8.0;”也可以写成“Extended properties=Excel 5.0;”,其它上午数字都不行,这个是Excel的版本号,对应Excel97,对于Excel 97以上版本都用Excel 8.0 。这个扩展属性和前面的Provider配合使用,不同的版本对应不同的Provider。我的环境是Excel2007版,版本号是12.0,如果直接改成12.0会报错,提示:找不到可安装的ISAM,正确的写法是:

   cnnstr = "Provider=Microsoft.Ace.OLEDB.12.0;Extended properties=Excel 12.0;Data Source=" & datFullName

4、还有其他一些参数,如下:

参数HDR的值:
HDR=Yes,这代表第一行是标题,不做为数据使用 ,如果用HDR=NO,则表示第一行不是标题,做为数据来使用。系统默认的是YES
IMEX ( IMport EXport mode )设置:
    IMEX 有三种模式:
  0 is Export mode
  1 is Import mode
  2 is Linked mode (full update capabilities)
  我这里特别要说明的就是 IMEX 参数了,因为不同的模式代表著不同的读写行为:
  当 IMEX=0 时为“汇出模式”,这个模式开启的 Excel 档案只能用来做“写入”用途。
  当 IMEX=1 时为“汇入模式”,这个模式开启的 Excel 档案只能用来做“读取”用途。
  当 IMEX=2 时为“连結模式”,这个模式开启的 Excel 档案可同时支援“读取”与“写入”用途。
意义如下:
0 ---输出模式;
1---输入模式;
2----链接模式(完全更新能力)

版权声明:本文为博主原创文章,未经博主允许不得转载。

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

标签:

原文地址:http://blog.csdn.net/iamlaosong/article/details/47042801

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!