用VBA将带有ODBC link的Access .mdb数据库导出到Access格式数据库中

Sub ExportDatabase()
    Dim sourceDB As Database
    Dim targetDB As Database
    Dim sourcePath As String
    Dim targetPath As String
    
    ' 设置源数据库路径
    sourcePath = "C:\path\to\source.mdb"
    
    ' 设置目标数据库路径
    targetPath = "C:\path\to\target.accdb"
    
    ' 打开源数据库
    Set sourceDB = OpenDatabase(sourcePath)
    
    ' 创建目标数据库
    Set targetDB = CreateDatabase(targetPath, dbLangGeneral)
    
    ' 复制源数据库中的所有表、查询、表单和报表到目标数据库
    For Each obj In sourceDB.TableDefs
        If Left(obj.Name, 4) <> "MSys" Then
            DoCmd.TransferDatabase acExport, "Microsoft Access", targetPath, acTable, obj.Name, obj.Name
        End If
    Next obj
    
    ' 关闭数据库
    sourceDB.Close
    targetDB.Close
    
    ' 释放对象
    Set sourceDB = Nothing
    Set targetDB = Nothing
    
    MsgBox "数据库导出完成！"
End Sub