Windows 无法从ACCESS VBA获取写入桌面的权限

使用以下代码将交叉选项卡查询结果传输到我希望在桌面上显示的EXCEL电子表格：

DoCmd.TransferSpreadsheet _
acExport, _
acSpreadsheetTypeExcel12Xml, _
"1ACTSKUbyYrbyMo", _
"C:\Users\John\Desktop", _
True

但是当我运行它时，我会得到运行时错误“3051”，这表示其他人打开了该文件夹，或者我没有写入该文件夹的权限。我已经爬遍了整个网络，并尝试了我找到的所有可能的解决方案，但没有任何效果。我转到文件夹并右键单击clock properties并取消选中read only，它会进行某种扫描，但随后总是返回到read only。使用Windows 10和ACCESS 365，我开始认为这是一个错误。我敢打赌，我已经找到并尝试了十几种解决这个问题的方法，但都没有效果。有什么建议吗

jpl458

您需要的是文件名，而不是文件夹名：

DoCmd.TransferSpreadsheet _
acExport, _
acSpreadsheetTypeExcel12Xml, _
"1ACTSKUbyYrbyMo", _
"C:\Users\John\Desktop\YourNewWorkbook.xlsx", _
True

---

我不知道为什么这个答案被否决了。对我来说，这似乎是正确的答案。如果不是，那么请说出来，这样我们可以进一步研究这个问题并提供正确的答案。效果很好。感谢您的帮助您是否尝试将其导出到其他文件夹，如文档文件夹或其他驱动器。然后呢？也可以尝试在桌面后面加斜杠，比如'C:\Users\John\desktop\`。