MS Access批量导出多个查询至独立Excel文件报错问题咨询

• 核心语法错误：你现有的批量导出代码中，TransferSpreadsheet方法的参数引号位置错误，将HasFieldNames参数（即末尾的True）错误包裹到了文件名字符串内部，导致系统无法识别合法的文件路径，误认为目标对象只读。
• 其他潜在诱因：
  • 导出目标路径Monthly Audits - Desktop如果不存在，也会触发写入权限类报错
  • 待导出的Excel文件如果已经被打开，会被锁定为只读状态
  • 含空格的查询/表名如果未被正确识别，也可能引发访问错误

修正语法错误后新增了目录自动创建逻辑，避免路径不存在导致的报错，导出的为无格式纯数据Excel文件：

Private Sub Command7_Click()
    ' 批量导出查询到无格式Excel
    Dim UID As String, excelsavepath As String
    Dim fso As Object
    
    UID = Environ("Username")
    excelsavepath = "C:\Documents and Settings\" & UID & "\Desktop\Monthly Audits - Desktop\"
    
    ' 自动创建不存在的导出目录
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(excelsavepath) Then
        fso.CreateFolder excelsavepath
    End If
    
    DoCmd.SetWarnings False
    
    ' 修正引号位置，将文件名和参数分开
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CIDCASTDATA", excelsavepath & "CIDCASTDATA.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CIDORGUNITS", excelsavepath & "CIDORGUNITS.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Cost Center List", excelsavepath & "Cost Center List.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "EmployeeChief", excelsavepath & "EmployeeChief.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Job Catalog-DLP", excelsavepath & "Job Catalog-DLP.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Org Unit Pull from SAP", excelsavepath & "Org Unit Pull from SAP.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "PA List", excelsavepath & "PA List.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SAP Position Pull-ALL WDPR", excelsavepath & "SAP Position Pull-ALL WDPR.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SAP Position Pull-ALL WDPR_1", excelsavepath & "SAP Position Pull-ALL WDPR_1.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SAP Position Pull-ALL WDPR_2", excelsavepath & "SAP Position Pull-ALL WDPR_2.xlsx", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SAP Position Pull-ALL WDPR_3", excelsavepath & "SAP Position Pull-ALL WDPR_3.xlsx", True
    
    MsgBox "所有文件已导出到指定目录。"
    DoCmd.SetWarnings True
    Set fso = Nothing
End Sub

不需要写代码也可以实现无格式批量导出，操作步骤如下：

• 打开宏生成器，添加TransferSpreadsheet操作
• 按以下规则设置每个操作的参数：
  • 传输类型：导出
  • 电子表格类型：Excel 12 工作簿(.xlsx)
  • 表名称：选择你要导出的查询/表名
  • 文件名：填写完整导出路径
  • 带有字段名称：是（导出时包含表头，不需要表头可选择否）
  • 其余参数留空即可
• 重复添加11次TransferSpreadsheet操作，分别对应11个待导出的对象
• 最后添加MessageBox操作做导出完成提示，保存宏后运行即可

内容的提问来源于stack exchange，提问作者R Craig