ms-access - 访问导出为电子表格错误 - 3436 创建文件失败

Question

我正在尝试在从 Access 导出的 Excel 电子表格的文件名中添加时间戳。

这是我的代码：

Private Sub Command31_Click()

Dim timeStamp As String
Dim XLfilePath As String

timeStamp = Now
XLfilePath = "C:\Folder\FileName - " & timeStamp & ".xls"

Debug.Print XLfilePath

DoCmd.TransferSpreadsheet acExport, , "MyAccessTable", XLfilePath, True

End Sub

出于某种原因，我收到以下错误：

Run-time error 3436
Failure creating file

对此有点困惑，因为Debug.Print表明XLfilePath变量正在持有：

C:\Folder\FileName - 23/04/2013 15:00:22.xls

...这是我所期望的。

C:\Folder\确实已经存在。

Answer 1

这可能不是一个有效的文件名。代替

timeStamp = Now

尝试：

timeStamp = Format(Now,"YYYYMMDD HHMMSS")

我相信这是在文件名中存储日期的公认标准。此外，在 Windows 资源管理器中查看文件夹时，您的文件默认按日期排序。

Answer 2

我正在使用 DoCmd.TransferSpreadsheet acExport, , "Export Bid", strFileName, True 并得到不同的结果，包括运行时错误 3436、创建文件的安静失败、有时会通过压缩/修复消失，有时不会。在我看来是马车。2013 年 7 月 使用 Office 2010