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

时　间:2018-11-09 08:22:46

作　者:摘　要:​有一些网友问，网站上好多都是导出生成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

示例下载:

演   示:

Access软件网官方交流QQ群(群号:39785885)

Access源码网店