将Ms Access Table导出到Excel

我使用这个代码，但它说“编译错误：预期的结束小组”对不起，我不是这个好。 但愿意学习。

Private Sub Command125_Click() Public Function TransferToExcel() On Error GoTo ErrorHandler Dim strTable As String Dim strWorkSheetPath As String strWorkSheetPath = "C:\Users\Desktop\" strWorkSheetPath = strWorkSheetPath & "APK.xlsx" strTable = "tblRegistration" DoCmd.TransferSpreadsheet transfertype:=acExport, _ spredsheettype:=acSpreadsheetTypeExcel12Xml, _ TableNmae:=strTable, FileName:=strWorkSheetPath, _ hasfieldnames:=True ErrorHandlerExit: Exit Function ErrorHandler: MsgBox "Error No: " & Err.Number _ & "; Description: " & Err.Description Resume ErrorHandlerExit End Function End Sub