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

Question

使用这段代码将交叉表查询结果传输到桌面上我想要的EXCEL电子表格：

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

但是当我运行它时，我得到运行时错误'3051'，其中说其他一些文件夹已打开或我没有权限写入该文件夹。我已遍布整个网络并尝试了我找到的所有可能的解决方案，但没有任何效果。我转到文件夹和正确的时钟属性并取消选中只读，它执行某种扫描，但随后总是返回只读。使用Windows 10和ACCESS 365，我开始相信这是一个错误。我敢打赌，我已经找到并尝试了十几种修复方案，但没有任何效果。有什么建议吗？

jpl458

Answer 1

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

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