将访问表导出到Excel错误

Question

I am trying to export my access tables to excel but keep getting the "Error, Expected Identifier" when I input my query and path name. Below is the code:

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

This is the exact queryname from my access table and the path that I want to exported table to go to. What I am doing wrong?

Answer 1

将Sub dmwExport更改为Call dmwExport

Answer 2

You may want to add " " around your file path in order for it to read it as text rather than a variable.

Like so:

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

You may also be able to "short-hand" the DoCmd.TransferSpreadSheet .

Example:

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

I hope this helps!