使用VBA将链接SQL Server的Access对象导出为独立便携Jet格式MDB

原有操作的问题根因 #

DoCmd.TransferDatabase执行导出时，会自动同步源表定义中存储的ODBC连接属性到目标库，碰到链接SQL Server的表时，会直接把连接元数据写入目标库的表定义，不会主动拉取全量数据生成独立本地表，这就是导出结果强依赖SQL连接的核心原因。
你之前采用的SELECT INTO生成本地临时表再导出的两步流程，确实能实现需求，但存在几个明显问题：

• 临时表会占用前端数据库的额外存储空间，需要额外编写清理逻辑避免残留
• 大表导出时，临时表生成的读写IO开销会成倍增加总导出时长

无副作用的单步实现路径 #

方案1：利用Access SQL的IN子句直接跨库写入 #

这是完全不需要修改前端任何对象定义、无本地临时表的最优解。核心逻辑是：利用Jet SQL原生支持的IN子句，直接将源表/查询拉取的全量数据写入目标.mdb文件，跳过所有中间环节。
可直接运行的VBA代码：

Sub ExportObjectToStandaloneMDB(SourceObjName As String, TargetMDBPath As String, Optional TargetTableName As String = "")
    Dim sql As String
    
    ' 适配未指定目标表名的场景
    If TargetTableName = "" Then TargetTableName = SourceObjName
    
    ' 自动覆盖已存在的目标文件
    If Dir(TargetMDBPath) <> "" Then Kill TargetMDBPath
    ' 先创建空的Jet格式目标库
    DBEngine.CreateDatabase TargetMDBPath, DB_LANG_GENERAL
    
    ' 跨库SELECT INTO：将源对象的全量数据直接写入目标库的本地表
    sql = "SELECT * INTO [" & TargetTableName & "] IN '" & TargetMDBPath & "' FROM [" & SourceObjName & "]"
    CurrentDb.Execute sql, dbFailOnError
End Sub

这个方案的优势：

• 全程没有在当前前端数据库生成任何临时表、临时查询
• 完全不修改现有链接表的连接属性，对前端正常业务无任何副作用
• 可以直接导出选择查询的结果集，不需要为不同的查询单独编写适配逻辑
• 导出的目标表是完全独立的本地Jet表，不携带任何ODBC连接信息，可在任意安装了Access引擎的PC上直接打开

方案2：临时重置连接属性的TransferDatabase适配 #

如果需要利用TransferDatabase的高级导出能力（比如导出表结构的索引、关系定义），可以通过临时剥离源表连接属性的方式实现，同样不需要生成本地临时表：

Sub ExportLinkedTableWithIndex(SourceObjName As String, TargetMDBPath As String, Optional TargetObjName As String = "")
    Dim tdf As DAO.TableDef
    Dim originalConnect As String
    
    If TargetObjName = "" Then TargetObjName = SourceObjName
    If Dir(TargetMDBPath) <> "" Then Kill TargetMDBPath
    
    ' 获取源表原有连接配置
    Set tdf = CurrentDb.TableDefs(SourceObjName)
    originalConnect = tdf.Connect
    
    ' 临时剥离连接元数据
    tdf.Connect = ""
    CurrentDb.TableDefs.Refresh
    
    ' 执行导出，同步表结构、索引等元数据，且不携带ODBC连接信息
    DoCmd.TransferDatabase _
        transfertype:=acExport, _
        databasetype:="Microsoft Access", _
        databasename:=TargetMDBPath, _
        objecttype:=acTable, _
        source:=SourceObjName, _
        destination:=TargetObjName, _
        structureonly:=False
    
    ' 立刻恢复原表的SQL Server连接配置
    tdf.Connect = originalConnect
    CurrentDb.TableDefs.Refresh
End Sub

这个方案适合需要完整迁移表索引、字段校验规则的场景，执行速度和直接导出链接表基本一致。

注意事项 #

• 跨库写入时，目标.mdb文件的路径不要包含单引号，避免SQL解析报错
• 若需要兼容Windows XP等老旧系统的Jet读取能力，创建目标库时可追加dbVersion30参数，生成旧版Jet3.x格式的文件
• 导出大表时，可通过设置记录集的CacheSize属性调整块读写缓存大小，进一步提升导出速度
• 整个流程不需要额外安装第三方组件，完全基于Access内置的DAO引擎实现，在Access 2019 + SQL Server 2017的环境下可直接运行

内容的提问来源于stack exchange，提问作者David Carle