如何利用vba自动合并多个excel文件到access中

miomip

不知道为什么上午发的帖子不见了
如题，想利用vba把多个excel文件中的部分信息合并到一起。
excel文件的格式是一样的，但由于这样的excel文件有好几百个，需要借助vba来自动化，从中抽取部门信息进行合并，另考虑到excel行数限制，所以想把合并后的文件放到access中。
如附件111，A9之后的信息作为每个文件内需要被合并的。另外需要添加一列名为SBA的，将excel文件中A7单元格的数字作为内容添加到这一列中，文件不同，A7内容就不同。
合并后的access格式如附件consolidate.
小女子在这里先谢过了。

miomip

有人能帮帮忙么？谢谢

sgrshh29

原帖由 miomip 于 2009-8-24 17:31 发表
不知道为什么上午发的帖子不见了
如题，想利用vba把多个excel文件中的部分信息合并到一起。
excel文件的格式是一样的，但由于这样的excel文件有好几百个，需要借助vba来自动化，从中抽取部门信息进行合并，另考虑到 ...

首先要把access表中的字段名修改到与excel中的一致（有3处需要修改），其次是在每个excel文件中定义名称（示例中二个区域分别定义为aa和bb），再就是将所有的excel文件与这个access文件放在同一个文件夹中。
HHH.rar (17.98 KB, 下载次数: 125)

2009-8-25 16:07 上传

点击文件名下载附件

打开access，点击按钮就可以了。

[ 本帖最后由 sgrshh29 于 2009-8-27 10:24 编辑 ]

miomip

谢谢楼上。
有个地方不太懂，在每个excel文件中定义名称的话，是每个excel文件都要定义对么？那么几百个文件都要打开手动来定义么？
请指教。谢谢

[ 本帖最后由 miomip 于 2009-8-26 18:08 编辑 ]

sgrshh29

原帖由 miomip 于 2009-8-26 18:03 发表
谢谢楼上。
有个地方不太懂，在每个excel文件中定义名称的话，是每个excel文件都要定义对么？那么几百个文件都要打开手动来定义么？
请指教。谢谢

可以用代码批量定义名称。如果不想定义名称，则可以将代码改动一下，将 strfilepath & strfilename & "].aa
改为 strfilepath & strfilename & "].[sheetname$aa9:o14] ,相应的bb也改一下。不过这时要求每个文件的sheet的名称都是一样的，起码要与文件名是一样的。

miomip

如果是改动代码的话，那么sql语句select bb.*, aa.number中的aa, bb也要改吧
是不是要先把aa,bb定义一下呢，怎么定义呢？谢谢。

sgrshh29

任何一个sheet的名称都与这个excel文件名称一致吗？每个excel是否只有一个sheet？还是什么其它情况？你能不能说一说？

miomip

是的，每个excel都只有一个sheet，而且与excel文件名相同。

sgrshh29

那就把代码中的sql语句改为如下所示：
strsql = "INSERT INTO Consolidate ( SBA ) SELECT bb.*, aa.Number AS sba FROM " _
             & "[Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & strfilepath & strfilename & "].[" & Left(strfilename, Len(strfilename) - 4) & "$a9:o65000] as bb, " _
             & "[Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & strfilepath & strfilename & "].[" & Left(strfilename, Len(strfilename) - 4) & "$a6:a7] as aa;"
其它的代码不要改动。
把下面这个文件解压后，放到那一堆excel文件的文件夹中，然后打开，点击按钮就可以了。
Consolidate.rar (15.27 KB, 下载次数: 69)

2009-8-27 10:50 上传

点击文件名下载附件

[ 本帖最后由 sgrshh29 于 2009-8-27 10:50 编辑 ]

miomip

出错了，aa.number好像不会被识别吧？
我改成aa.*说查询的和目的地格式不对