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

sgrshh29 · 发表于 2009-8-27 14:51

原帖由 miomip 于 2009-8-27 13:53 发表
出错了，aa.number好像不会被识别吧？
我改成aa.*说查询的和目的地格式不对

excel文件中的列标题与你的附件是一致的吧？不要搞错。试试这个文件。

Consolidate.rar (15.73 KB, 下载次数: 41)

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

miomip · 发表于 2009-8-27 15:31

现在发现问题了，因为我那几百个excel文件是从公司内部系统下载下来的，它的格式不是纯粹的excel文件。
如果是纯粹的excel文件，这个合并macro是可行的。
现在的文件格式如附件，当用save as时，文件格式显示为txt文件，Text (Tab delimited)*.txt。这个有办法处理的么？
非常感谢

[ 本帖最后由 miomip 于 2009-8-27 15:34 编辑 ]

miomip · 发表于 2009-8-27 15:38

原帖由 sgrshh29 于 2009-8-27 14:51 发表

excel文件中的列标题与你的附件是一致的吧？不要搞错。试试这个文件。574017

另外，我最开始确实把列标题搞错了，该了代码为
strsql = "insert into consolidate select bb.*, aa.[SBA 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;"
就好了，但是，文件的格式问题还是大问题，还请指教。

sgrshh29 · 发表于 2009-8-27 16:23

什么意思？你最后上传的附件还是一个.xls文件啊，可以直接用。你把它另存为xls文件就可以啊。

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

miomip · 发表于 2009-8-27 17:01

实际上不是的，通过另存为可以看出来它是打了""的，文件格式实际为txt
这段代码运行的时候报错，认为格式不对：external table is not in the expected format
如果几百个都打开来另存为的话，工作量还是很大。
不知道是不是& "[excel 8.0;hdr=yes;imex=2;database=" 这个地方的excel 8.0可以更改呢？

sgrshh29 · 发表于 2009-8-27 17:05

原帖由 miomip 于 2009-8-27 17:01 发表
实际上不是的，通过另存为可以看出来它是打了""的，文件格式实际为txt
这段代码运行的时候报错，认为格式不对：external table is not in the expected format
如果几百个都打开来另存为的话，工作量还是很大。
不 ...

把文件发几个（3~5，要包括二种格式的都要）典型的上来，看看到底什么问题。一会儿格式不对，一会儿列名不对。

sgrshh29 · 发表于 2009-8-27 17:07

等下班以后，到家里给你处理一下。

miomip · 发表于 2009-8-27 17:24

原帖由 sgrshh29 于 2009-8-27 17:05 发表

把文件发几个（3~5，要包括二种格式的都要）典型的上来，看看到底什么问题。一会儿格式不对，一会儿列名不对。

把consolidate.mdb和xls BOM里面的文件放一块儿做合并的时候，程序运行正常
但是把它和txt BOM里面的待分隔符的txt文件放一块儿做合并的时候，出现文件格式不对。
而我要处理的原始数据都是和txt BOM里面的文件类型一样的，不是纯粹的excel 文件（这个可以通过另存为看出来）。
谢谢。

[ 本帖最后由 miomip 于 2009-8-27 17:28 编辑 ]

sgrshh29 · 发表于 2009-8-28 05:05

原帖由 miomip 于 2009-8-27 17:24 发表

把consolidate.mdb和xls BOM里面的文件放一块儿做合并的时候，程序运行正常
但是把它和txt BOM里面的待分隔符的txt文件放一块儿做合并的时候，出现文件格式不对。
而我要处理的原始数据都是和txt BOM里面的文件 ...

解压以后，打开access文件，点击按钮就可以了。即使excel文件中的列名错了也不要紧，在代码中都处理好了.再有问题，偶要晕过去了。

HHH.rar (29.07 KB, 下载次数: 83)

[ 本帖最后由 sgrshh29 于 2009-8-28 05:08 编辑 ]

miomip · 发表于 2009-8-28 10:49

终于搞定了。谢谢谢谢，送

一枚。
这儿好人强人多阿

		自动登录	找回密码
密码			免费注册

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

回复 11楼 sgrshh29 的帖子

回复 14楼 sgrshh29 的帖子

回复 19楼 sgrshh29 的帖子