如何导出数据表型子窗体内容到Excel

看到网上的一些导出例子是用　复制拷贝　的方法　把子窗体内容导出，在记录多的时候就很慢

下面是我结合从网上找到的一些资料和查自带帮助　写下的，希望给大家带来方便

Private Sub ImportToExcel()
On Error GoTo errit

Dim oExcel As Object
Dim oBook As Object
Dim i As Integer
  
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add()
  
   Me.子窗体.Form.Recordset.MoveFirst
  
   For i = 0 To Me.子窗体.Form.Recordset.Fields.Count - 1
      oBook.Worksheets(1).Cells(1, i + 1).Value = Me.子窗体.Form.Recordset.Fields(i).Name
   Next

   oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.子窗体.Form.Recordset
   oBook.SaveAs ("d:\Test.xls")
   MsgBox "导出成功"

errexit:
   oBook.Close False
   oExcel.Quit
   Set oBook = Nothing
   Set oExcel = Nothing
   Exit Sub

errit:
   MsgBox "错误号为" & Err.Number & " 错误说明：" & Err.Description
   Resume errexit

End Sub