如何从ACCESS查询中导出指定的记录到EXCE

导出查询的（或全部）记录到EXCEL中去记录到EXCEL中去

Private Sub EXCEL_Click() '导出至EXCEL

On Error GoTo Err_EXCEL_Click

  Me![子窗体名称].SetFocus    '把焦点移动子窗体上

    DoCmd.RunCommand acCmdSelectAllRecords

    DoCmd.RunCommand acCmdCopy

    Dim obj As Object

    Set obj = CreateObject("Excel.Application")'创建Excel对象

    obj.Workbooks.Add

    obj.Visible = True’ 打开导出的Excel文件

    SendKeys "^v"

Exit_EXCEL_Click:

    Exit Sub

Err_EXCEL_Click:

    MsgBox Err.Description

    Resume Exit_EXCEL_Click

End Sub