关于Access导出EXCEL的问题求助

van_zeng

直接导出所有数据的代码

Private Sub Command33_Click()    'command33是导出键
On Error GoTo Err_Command33_Click

  Me.子窗体.SetFocus    '把焦点移动子窗体上
  
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("Excel.Application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click

End Sub