access报表如何导至excel

Question

现在我有一个ACCESS的报表，可以预览，也可以打印，但现在我想将这个报表导至excel里面，如何实现这个功能？

Answer 1

Private Sub Form_Load()
    Dim myexcel As New Excel.Application
    Dim mybook As New Excel.Workbook
    Dim mysheet As New Excel.Worksheet
    Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
    Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
     myexcel.Visible = True
    
    mysheet.Cells.CopyFromRecordset myrecordset  'myrecordset记录集
    mybook.SaveAs (m_ExcelName) '保存文件
End Sub