利用ado将excel数据直接导入数据库

从软件工程的角度来说，我的工作很多是把次序掉转了过来，因为我是在开发工作的中后期才将文档写出来，往往也只是个数据流、工作流和一些功能需求的总结记录，算不上完整的开发文档。从头到尾都是一个人干，这就不存在成员间的设计交流问题了。

      每天10多个小时面对电脑屏幕，其结果就是眼睛很痛，宿舍、办公室放置的眼药水都用完了。呵呵，我都怀疑再这样下去自己的眼睛会不会瞎掉。

      嗯，说着有点跑题了。下面该说说题内话了^O^

       前些天接到大学同学的求助信息，要求用SQL的存储过程设计一个数据导入的功能。当时头就大了，这存储过程我花了几天时间看过来看过去，还到处找资料，除了发现它能提供单表的更新、插入、删除的工作外居然没找到其他用法？？？？？看来我得找些厚砖头啃啃了。

      昨天想了半天环视还是没什么头绪，只好放弃使用SQL自身的编程了。郁闷之中找了点资料，用VB编了个小程序来导数据，没想到一测试：1w条EXCEL数据只要7~10秒内就可导完。不知道这个速度算不算快。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim cn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist