有没有哪位同志能够写出用VB把excel导入Access，同时用进度条显示导入进度的代码 - VB6论坛

pariszh
该用户已被删除

第 2 楼

得分:0

提示: 作者被禁止或删除内容自动屏蔽

2010-06-13 18:55

jiashie

等　级：贵宾
威　望：10
帖　子：237
专家分：999
注　册：2009-4-30

第 4 楼

得分:0

如果excel的格式很标准（就像一张表一样），可以直接用ADO的方式把excel当作数据库来读取。

程序代码：

...
Set connXLS = New ADODB.Connection
'connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & strExcel & "';Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & strExcel & "';Extended Properties=""Excel 12.0;HDR=NO"";"  '由于我用的是office2007的excel，所以要用ACE而不是Jet。
connXLS.Open connStr

Set rsXLS = New ADODB.Recordset
sqlStr = "select  * from [Sheet1$]"   'Excel工作簿名称 +$
rsXLS.Open sqlStr, connXLS, adOpenKeyset, adLockOptimistic
if rsXLS.RecordCount =0 then 
    '没有记录
    err.raise ERROR_USER,"没有记录"
end if 
'遍历所有记录、所有字段
for i = 0 to rsXLS.RecordCount -1
    for j = 0 to rsXLS.Fields.Count-1
        debug.print rsXLS(j)
    next
    rsXLS.MoveNext
next
rsXLS.Close
...

2010-06-14 12:52