关于窗体内窗体控制主子窗体控件的问题，老师请进

导出子窗体数据到EXCEL的方法经过我不懈的搜索，终于让我找到了，与大家一起分享。

Private Sub 导出Excel_Click()
    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()
    Forms!frm员工!frmChild.Form.Recordset.MoveFirst
    For i = 0 To Forms!frm员工!frmChild.Form.Recordset.Fields.Count - 1
        oBook.Worksheets(1).Cells(1, i + 1).Value = Forms!frm员工!frmChild.Form.Recordset.Fields(i).Name
    Next
    oBook.Worksheets(1).Range("A2").CopyFromRecordset Forms!frm员工!frmChild.Form.Recordset
    oBook.SaveAs ("d:\名单.xls")
    MsgBox "导出 名单.xls 至 D盘 成功！！！"
errexit:
    oBook.Close False
    oExcel.Quit
    Set oBook = Nothing
    Set oExcel = Nothing
    Exit Sub
errit:
    MsgBox "错误号为" & Err.Number & " 错误说明：" & Err.Description
    Resume errexit
End Sub