DoCmd传输电子表格在Windows 10中不起作用

Question

我有一个模块可以在升级到Windows 10之前创建的Access DB中使用。导出完全相同，但是在Windows 10中不起作用。我对VBA来说是比较陌生的，所以请放轻松在我身上。

我复制了可以正常工作的数据库并更新了表名，但仍然无法导出。

除导出外，一切正常：

Public Sub DmwExport()
Application.SysCmd acSysCmdSetStatus, "Exporting Files"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "TABLE NAME", "FILE LOCATION " & Format(Date - Weekday(Date), "mm-dd-yy") & ".xlsx", True
End Sub

数据库的行为就像它正在导出文件一样，大约需要30秒钟，但是当我转到文件位置时，文件不存在。我在网络共享驱动器和PC的本地驱动器上尝试过，结果为零。我已经编译数据库，没有错误，所以我不确定哪里出错了。我所有的参考资料也都使用15.0版本进行了检查。上面的代码对以前创建的数据库没有问题，但是在此数据库中不会成功。我尽力了。非常感谢您的帮助。

Answer 1

已添加到此帖子中。有一个参考文件和驱动程序，需要将其添加到新的Windows10版本的本地MS Access应用程序中。只是无法查明所需的确切MSI OCX或DLL名称（可以在Microsoft下载站点中搜索。）您在TransferSpreadsheet上的导出问题也发生在IMPORT函数上：

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "targettable", "outsidesourceXLSfileobject", True, "XLS worksheetRange"