求助！如何将多个access数据库中的同名表合并到一个access库中

北国风雪0204

大家好，我有100多个Access数据库在同一文件夹下，每个mdb库中都有一个格式、名字一样的表，现在想把这些表中的数据汇总到一个mdb文件中的一个表里面，请教模块要怎么写？我之前汇总Excel的代码如下：（不知是否改掉红色部分就行了？还是要重写代码？请高人赐教，谢谢！！）
Function ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    s = folderspec
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files

    For Each f1 In fc
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, 2012, s & "\" & f1.Name, True
    Next
End Function

备份2012BIBF编辑看稿.rar (225.17 KB, 下载次数: 102)

2012-4-20 09:07 上传

点击文件名下载附件

Renco

一般情况下呢，如果是所有需要合并的表的结构是一样的，一般不用一个个的重新建链接
只需要建一个链接表，然后一个个的更改链接表的connect就可以了，LZ可以传几个示例库上来

北国风雪0204

Renco 发表于 2012-4-20 07:48
一般情况下呢，如果是所有需要合并的表的结构是一样的，一般不用一个个的重新建链接
只需要建一个链接表， ...

嗯，我这100多个mdb文件中都有同一个表，名字也都一样，我想把这些表都汇总到一个mdb文件的一个表里面，如果建立链接表是不是要点100多下啊，而且还不是汇到一个表里面，我现在想通过宏把这在同一目录下的100多个mdb文件中的表汇总到一起

Renco

北国风雪0204 发表于 2012-4-20 09:02
嗯，我这100多个mdb文件中都有同一个表，名字也都一样，我想把这些表都汇总到一个mdb文件的一个表里面，如 ...

1.当然不用点N多下，做个循环调用就行了
2.表是一样的，为什么还导入一个表里呢，加个字段来区别来源的表不就行了，如果表的结构不一样，那就要看情况了

北国风雪0204

Renco 发表于 2012-4-20 10:18
1.当然不用点N多下，做个循环调用就行了
2.表是一样的，为什么还导入一个表里呢，加个字段来区别来源的表 ...

请问这循环调用怎么做呀，也要写代码么？ 附件里面的两个表是例子，他们里面的表都叫“标准表”，我需要把这些“标准表”中的数据全部汇总到另一个“汇总表”里，也就是把零散数据整合到一个表，请问实现这一批量导入过程有什么好方法么？如果必须写代码，还麻烦高手指点下，我上面的代码是导入excel的，没有针对这种格式做过

ASLXT

链接表也可以不用，用代码循环
for i =1 to n
    CurrentProject.Connection.Execute "select * into 表名from [" & 完全文件名 & "].表名"
next i
其中n为要汇总的文件数量，“完全文件名”是包含文件路径和文件名的字符串。重要的是如何获得“完全文件名”。假如文件名为1、2、....n，就很简单了。

北国风雪0204

ASLXT 发表于 2012-4-20 12:34
链接表也可以不用，用代码循环
for i =1 to n
    CurrentProject.Connection.Execute "select * into 表 ...

谢谢，我试试

Renco

北国风雪0204 发表于 2012-4-20 13:32
谢谢，我试试

结合6楼的方法更为优化些，
请执行宏1===>选择文件夹路径
注意其中的原则：
1.在代码中我限定了文件名称为 OK 开头的 .mdb 后缀文件名
2.如有提示引用程序错误，请改一下引用
3.注意dir的循环用法

北国风雪0204

Renco 发表于 2012-4-20 13:57
结合6楼的方法更为优化些，
请执行宏1===>选择文件夹路径
注意其中的原则：

多谢大侠~ 试验了下，相当专业，只是有些文件名中有“-”符号，这样的文件会提示错误——“字段太小而不能接受所要添加的数据的数量”，看来文件名字还得规范。

也谢谢六楼了，我还得继续学习，周末愉快！

Renco

把【来源】文本字段加长点，改到250长。。总够了吧