如何将统一格式的多个表格的数据（我的案例有几千个数据呢）批量导入Access中呢？

wwwconsumer

我一直在关注本栏目，觉得本栏目的高人真是多，但人气相对来说还不太旺，关键的原因是缺乏真实的案例，就好比一个人，只有骨架，没有血肉。我一直在拜读大家的文章，总觉得有点隔靴捎痒的感觉，理论很骨感，案例却苍白。可能是大家的数据涉及单位秘密，一般不太轻易拿来讨论。好吧，我愿意做个小白，把我的血肉挖出来给大家煎熬！当然，这些数据我也做了一些技术处理，大家千万不要对号入座，否则后果自负！
我这里有几千个这样类似的表格，表格中有企业基本信息、管理人员信息、报关员信息、企业进出口的数据等资料。如图一。

我的附件里有五个这样的表格，代表五个企业的数据。
我现在是想通过建立如图二的ACC，将表格中的企业基本信息的数据自动导入，请问如何实现呢？

图二

案例材料见附件
企业进出口数据库.rar (146.59 KB, 下载次数: 108)

2013-9-4 07:29 上传

点击文件名下载附件
企业进出口数据库

Renco

ACC与EXCEL不一样，EXCEL大多数人都在找设置、找功能：如公式如何写，透视表如何做等等，ACC没有太多的公式可套，没有太多的设置，除去VBA和宏外，也没有什么特别多功能可设，如要用好ACC全要靠自已，而且和每个人的思维方式有很大关系（比如你的例子，要把这类EXCEL导到ACC，形成一条横向记录，如果我说，还能形成若干条纵向的记录你信不信？），然后与VBA和宏应用的比较多（如果要用的比较好的话），代码设计又有很多的方法和写法，所以ACC板块里更多的是给你们一种思维的方式，一般如不给具体的示例解决的话，一般只会告诉你思考解决的方案，具本的内容就须要问主自已去解决和思考了，也可以认为就是给你一个模式，你自已先理解后，去套，想生搬硬套，在ACC大多数情况下是行不同的
所以学ACC比EXCEL难的多，但学了ACC再学EXCEL，就简单的多

Renco

其实你的问早就有相关案例了
思路呢也很简单

  dir 查找文件的循环，然后就是逐个用VBA打开EXCEL文件，把相应cell写到相应的新建表记录的字段里

说白了，就是一个递归+循环的方式

至于帮不帮你写这个程序呢，就要问一下
1.你了解VBA多少？
2.你需要在哪里操作这个导入程序？ACC还是EXCEL

wwwconsumer

嗯，谢谢您的帮助。我对VBA有一定的了解，会写简单的VBA语句。我需要从ACC导入程序，谢谢您了。

Renco

即然有基础，里面的代码你自已看吧
{:soso_e144:} 希望 你看自已做出一个来。

wwwconsumer

Renco 发表于 2013-9-5 14:06
即然有基础，里面的代码你自已看吧
希望 你看自已做出一个来。

谢谢了，老师

wwwconsumer

Renco 发表于 2013-9-5 14:06
即然有基础，里面的代码你自已看吧
希望 你看自已做出一个来。

批量提取表格中的信息成功，但还有点遗憾：只能导入表格中固定单元格中的内容
提示批量导入成功（见图）


文件夹中的五个表格全部成功导入（见图五个表中的企业信息全部导入）

但还是有点遗憾，楼主的基本信息的方案代码是按照EXCEL表中的固定单元格来批量导入的，（见图批量提取是按照EXCEL中固定单元格进行的）


但如果表中的信息不是固定单元格，比如报关员信息一栏中，不是每个公司的报关员都是固定的人数，所以在表格中占据的单元格也不是固定的，比如4420910010表格中有7个报关员，信息单元格为A70：H76，


4420962306表格中只有一个报关员，信息单元格为A71：H71，


其实在本案例中，大部分的表格的单元格不是固定的（我举例中企业信息那部分占据固定的单元格只是个案），在这种情况下，按照EXCEL表格中固定单元格来提取信息好像不太可行。不知有无较好的代替方案。谢谢了。

Renco

我只是告诉你如何读写的方式，变动的当然有变动的方法，固定有固定的方法
但可接授的规律里，初步的看完了你这里面的内容，是可以写的出来的，在论坛上是提出你的问题，但不是来帮你做完整个工作的哦

Renco

例子中。我帮你做了其他信息的批量导入方式，希望你能看的明白。方法在里面了，其他的你自已要会去套了，
但要注意哦，类似 【关税征管情况】这个表，我并没有做导入模块哦，但是呢，是可以做的，方法就是里面的两类方式结合

{:soso_e113:}。。呵。。。祝你成功哦

wwwconsumer

Renco 发表于 2013-9-6 16:34
例子中。我帮你做了其他信息的批量导入方式，希望你能看的明白。方法在里面了，其他的你自已要会去套了，
...

太谢谢您了，说实在话，我真的看不懂你写的代码，我要专门花十天半个月来研究你的代码。