【Access示例】导出当前数据库中的所有表到Access

时　间:2018-11-09 08:22:46
作　者:缪炜   ID：24010  城市：江阴
摘　要:​有一些网友问，网站上好多都是导出生成Excel，Word，TXT，XML等等的示例，怎么就没有找到导出成Access的示例呢？
下面的示例就是将当前Access中的所有表导出，导出的文件为Access文件
正　文:

主要代码：

    Dim strFolderPath As String
    Dim tbl As TableDef
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = CurrentProject.Path
        If Not .Show Then Exit Sub
        strFolderPath = .SelectedItems(1)
    End With

    strName = "导出Access表" & Format(Date, "YYYY-MM-DD") & ".mdb"

    strFolderPath = strFolderPath & "\" & strName
    If Dir(strFolderPath) <> "" Then Kill strFolderPath
    CreateDatabase strFolderPath, dbLangGeneral
    For Each tbl In CurrentDb.TableDefs
        If Not tbl.Name Like "Msys*" Then
            DoCmd.TransferDatabase acExport, "Microsoft Access", strFolderPath, acTable, tbl.Name, tbl.Name, False
        End If
    Next
    MsgBox "导出成功。", vbInformation

示例下载:

点击下载此附件

演   示: