将访问表导出到Excel错误

Question

我试图将我的访问表导出到excel，但是当我输入查询和路径名时，总是得到“错误，期望的标识符”。 下面是代码：

Sub exportToXl()

On Error GoTo ErrorHandler

Dim dbTable As String

Sub dmwExport("SuperDash_Usage_Rpt", "L:\WF Reporting\Superdash\SuperdashRpt.xlsx")

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

DoCmd.TransferSpreadsheet _

TransferType:=acExport, _

SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _

TableName:="SuperDash_Usage_Rpt", _

FileName:=L:\WF Reporting\Superdash\SuperdashRpt.xlsx, _

HasFieldNames:=True

End Sub

这是我的访问表中的确切查询名，也是我要导出表去的路径。 我做错了什么？

Answer 1

将Sub dmwExport更改为Call dmwExport

Answer 2

您可能需要在文件路径周围添加" " ，以使其以文本而非变量的形式读取。

像这样：

Sub exportToXl()

On Error GoTo ErrorHandler

Dim dbTable As String

Sub dmwExport("SuperDash_Usage_Rpt", "L:\WF Reporting\Superdash\SuperdashRpt.xlsx")

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

DoCmd.TransferSpreadsheet _

TransferType:=acExport, _

SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _

TableName:="SuperDash_Usage_Rpt", _

'Added "" around file path in order to be read as text
FileName:="L:\WF Reporting\Superdash\SuperdashRpt.xlsx", _

HasFieldNames:=True

End Sub

您还可以“ DoCmd.TransferSpreadSheet ” DoCmd.TransferSpreadSheet 。

例：

DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExcel12Xml, "SuperDash_Usage_Rpt", "L:\WF Reporting\Superdash\SuperdashRpt.xlsx", True

我希望这有帮助！