MS Access：将多个查询导出到单独的 Excel 文件中

问题描述

我需要将多个查询从 Access 导出到 Excel。 （11 个表格到 11 个未格式化的 Excel 文件）

我使用的数据库有一个前端“用户”数据库，后端数据库包含大量数据。

我可以成功使用以下代码：

Private Sub Command6_Click()
'Create Genie Files for Temp Deskop DB and Export Files to Excel

UID = Environ("Username")
excelsavepath = "C:\Documents and Settings\" & UID & "\Desktop\Monthly Audits - Desktop\"
    
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12Xml,"CIDCASTDATA",excelsavepath & "CIDCASTDATA.xlsx,True"

MsgBox "All CIDCASTDATA havs been exported to the Monthy Audits-Desktop."
DoCmd.SetWarnings True

End Sub

但是，当我尝试将多个放在一起时，出现错误：

运行时错误 3027：无法更新。数据库或对象是只读的。

Private Sub Command7_Click()
'Create Genie Files for Temp Desktop DB and Export Files to Excel

UID = Environ("Username")
excelsavepath = "C:\Documents and Settings\" & UID & "\Desktop\Monthly Audits - Desktop\"
    
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acExport,True"
DoCmd.TransferSpreadsheet acExport,"CIDORGUNITS",excelsavepath & "CIDORGUNITS.xlsx,"Cost Center List",excelsavepath & "Cost Center List.xlsx,"EmployeeChief",excelsavepath & "EmployeeChief.xlsx,"Job Catalog-DLP",excelsavepath & "Job Catalog-DLP.xlsx,"Org Unit Pull from SAP",excelsavepath & "Org Unit Pull from SAP.xlsx,"PA List",excelsavepath & "PA List.xlsx,"SAP Position Pull-ALL WDPR",excelsavepath & "SAP Position Pull-ALL WDPR.xlsx,"SAP Position Pull-ALL WDPR_1",excelsavepath & "SAP Position Pull-ALL WDPR_1.xlsx,"SAP Position Pull-ALL WDPR_2",excelsavepath & "SAP Position Pull-ALL WDPR_2.xlsx,"SAP Position Pull-ALL WDPR_3",excelsavepath & "SAP Position Pull-ALL WDPR_3.xlsx,True"

MsgBox "All Genie Files have been exported to the Monthy Audits ."
DoCmd.SetWarnings True

End Sub

无论我是在前端数据库还是后端数据库中创建查询，都会发生此错误。但是，当我逐个文件手动导出到 Excel 时，这两个数据库都没有问题。

相反，我尝试在 Access 中使用宏生成器，但不知道如何/是否可以使用它来导出未格式化的 Excel 文件。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）