寻求高手相助:excel中用VBA实现同结构ACCESS数据库合并

wwwbjwww

有两ACCESS数据库,库结构完全一致(注意关键字不能设为重复,比如用数字序列作关键字不行),分别为:D:/DB1.MDB及D:/DB2,打开DB1插入模块,编写如下代码:
Public Sub ImportData()
   
          Dim strPath     As String
          strPath = "D:\db2.MDB"
          Dim strSQL     As String
          Dim Cnn     As New ADODB.Connection
          Dim Rst     As New ADODB.Recordset
   
          Set Cnn = CurrentProject.Connection
          strSQL = "SELECT   *   FROM   MSysObjects   WHERE   Flags=0   AND   Type=1"
          Rst.Open strSQL, Cnn, adOpenKeyset, adLockReadOnly
          If Not Rst.EOF Then
                  Rst.MoveFirst
                    
                  Do While Not Rst.EOF
                          strSQL = "insert   into   " & Rst!Name & "   select   *   from   " & Rst!Name & "   in   '" & strPath & "'"
                          Cnn.Execute strSQL
                          Debug.Print strSQL     
                          Debug.Print Rst!Name
                          Rst.MoveNext
                  Loop
          End If
          MsgBox "OK"
  End Sub
运行代码后,db2.mdb合并到DB1.mdb中了,以上代码,小弟想用EXCEL的VBA代码改码,运行VBA代码后实现两数据库的自动合并,请教各路高手,该如何实现,谢谢!

[ 本帖最后由 wwwbjwww 于 2010-1-31 13:42 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

wwwbjwww

实现过程大概是这样的4个步骤：
1、要将那些需合并的mdb数据库放在同一文件夹中，这样可以实现自动生成；如果不在同一文件夹，要手动添加实现；
2、通过VB Running Script获取指定文件夹中需合并的mdb文件，取得每一个文件名；
3、通过ADO实现生成一个数据库，里面有格式与需合并mdb数据库中相同结构的表；
4、通过ADO实现将每个需合并的数据库中表的记录取出，并写到指定表中；
这是ADO的思路,有哪位大侠能提供代码,或其他快速合并的思路(不使用大量的FOR循环,因为总感觉同结构的数据库合并存在简单的代码),谢谢诸位.