如何从access导出数据到excel？

Private Sub cmd导出合同表_Click()
On Error GoTo ErrA
    DoCmd.OutputTo acOutputTable, "tbl合同表", acFormatXLS, , True
    '''"tbl合同表"：导出的数据源表， acFormatXLS：为输出的格式EXCEL 表， 后面的参数请参见 HELP. 或命令本身的智能导向。

ExitA:
    Exit Sub
ErrA:
    msgbox  Err.Number & "," & Err.Description

    Resume ExitA
End Sub

这个问题是很简单的问题 。 许多方法都可以实现。