再谈批量导入Excel数据-cspa
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


再谈批量导入Excel数据

发表时间:2015/12/2 12:52:12 评论(8) 浏览(21022)  评论 | 加入收藏 | 复制
   
摘 要:    一个批量导入具有相同格式的Excel数据表的示例,支持导入一个工作薄里的多个相同的工作表。支持将一个工作薄里的多个相同的工作表导入到同一个access表中,或分别导入到不同的access表中。
正 文:

      前几天发了一个批量导入具有相同格式的Excel数据表的示例。后有网友问,如果导入一个工作薄里的多个相同的工作表如何修改?很简单再加一个循环就是了。

      根据kuiblue同志追加的问题“如何将一个工作薄里的多个相同的工作表分别导入到不同的access表中”,再次对示例做了修改,增加了导入方式选项,让用户可自行决定如何导入。同时修改了导入结果统计项,将一次导入处理的Excel文档数、导入建立的access表数和导入的记录总数均在统计结果中显示出来。

     大家在使用时,要注意检查VBA的引用,要引用 Microsoft Office X.0 Object Library 和 Microsoft Scripting Runtime,如下图所示:

    

修改后示例如下:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【access通用工具源码】通用Excel数据导入模块  【红尘如烟  2011/5/9】
【access源码示例】导入导出系列——Excel数据高效导入示例  【红尘如烟  2011/5/24】
【Access小品】快速导入多个相同结构Excel表数据示例  【煮江品茶  2014/11/21】
【VB.NET小品】EXCEL表的两种导入导出方法  【煮江品茶  2014/11/26】
【Access小品】国中之国--Excel表局部数据导入示例  【煮江品茶  2015/4/30】
批量导入具有相同格式的Excel数据表示例  【cspa  2015/11/29】
 
 访客评论
2017/11/26陈亮
不能识别 子文件夹吗?

2016/10/1小城
你好,我把你的程序导入我的数据库中运行,总是报错:“用户定义类型未定义”
在“Function funGetFolder() As String
Dim dlgOpen As FileDialog”这个地方。请问是怎么回事?

2016/3/1张c
可以识别  子文件夹吗

2015/12/19二老者
作为事件属性设置而输入的表达式“单击”产生了如下错误:对象或类不支持的事件集

2015/12/7Seven
我的怎么总是提示“编译错误,can't find project pr library”?

2015/12/7kuiblue
完美的解决方案!谢谢老师无私分享!

2015/12/2kuiblue
老师还有一个问题:
文件中的“一年级花名册”中有3个班(3个工作表),我想导入到access时也是生成3个表,而不是把这3个表汇总成一个表。
也就是说excel 有多少个工作表导入到access里时就有多少个表。
请问如何修改,再次感谢老师!!!

2015/12/2kuiblue
非常感谢!
老师厉害

总记录:8篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

cspa

文章分类

文章存档

友情链接