作者：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----链接模式(完全更新能力)
版权声明：本文为博主原创文章，未经博主允许不得转载。