access报表如何导至excel

[rongxh]

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

[rongxh]

怎么没有人回答啊！

[bee6803]

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

[22wolf]

打开报表——〉文件——〉导出——〉选择保存类型

[rongxh]

我问的是如何用VBA实现呢？