Question

我正在尝试从Access导出表并将其另存为简单的Excel文件。我一直在收到运行时错误7889.访问说该文件不存在。

我检查过我是数据库中唯一的一个。该表已关闭（没有记录锁定）。我检查以确保我对指定路径具有读/写访问权限。我正在制作的文件尚不存在。我已经编译了我的代码，并对数据库进行了压缩和修复。

Dim sPath As String
sPath = "C:\Users\xxxx\MarketMapSourceData_TEST.xlsx"
DoCmd.TransferSpreadsheet acExportDelim, acSpreadsheetTypeExcel12, _
                            "tbl_3partyCRM", sPath, True

我也尝试了以下内容：

DoCmd.TransferText acExportDelim, , "tbl_3partyCRM", sPath, True

..但是这给了我一个运行时错误3027对象是只读的。

这可能是什么问题？

Answer 1

您正在通过文本传输和Excel传输混合您的参数

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tablenamehere", spath, True

DoCmd.TransferSpreadsheet产生7889运行时错误

1 个答案: