| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1628 人关注过本帖, 1 人收藏
标题:有没有哪位同志能够写出用VB把excel导入Access,同时用进度条显示导入进度的 ...
只看楼主 加入收藏
greatwall9528
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-10-12
收藏(1)
 问题点数:0 回复次数:3 
有没有哪位同志能够写出用VB把excel导入Access,同时用进度条显示导入进度的代码
如果能有具体的思路或者相关的解释就更好了,谢谢!!!
搜索更多相关主题的帖子: 同志 Access 进度 excel 代码 
2010-06-13 11:23
pariszh
该用户已被删除
收藏
得分:0 
提示: 作者被禁止或删除 内容自动屏蔽
2010-06-13 18:55
fstl123
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-3-25
收藏
得分:0 
这个我也想知道,顶上去!
2010-06-14 12:45
jiashie
Rank: 8Rank: 8
等 级:贵宾
威 望:10
帖 子:237
专家分:999
注 册:2009-4-30
收藏
得分: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
快速回复:有没有哪位同志能够写出用VB把excel导入Access,同时用进度条显示导入 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040107 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved