将所有表导出到另一个数据库

无聊闲逛，发现一个”导出所有表到另一个数据库”的自定义函数，分享给大家。

代码如下：

‘ Author : Daniel Pineault, CARDA Consultants Inc.

‘ Website : http://www.cardaconsultants.com

Function ExpAllTbls(sDestDb As String)

On Error GoTo Error_Handler
Dim db As DAO.Database
Dim td As DAO.TableDefs
Set db = CurrentDb()
Set td = db.TableDefs
For Each t In td
If Left(t.Name, 4) = “MSys” Then GoTo Continue ‘忽略所有系统表
DoCmd.CopyObject sDestDb, t.Name, acTable, t.Name
Continue:
Next
Error_Handler_Exit:
On Error Resume Next
Set td = Nothing
Set db = Nothing
Exit Function
Error_Handler:
MsgBox “运行失败”
Resume Error_Handler_Exit
End Function

Private Sub Command0_Click()
ExpAllTbls (“C:新建文件夹Database2.accdb”) ‘写入目标数据库地址
End Sub

阅读原文：
http://www.accessoft.com/article-show.asp?id=20155