主窗体上的导出EXCEL按钮，怎样导出主窗体内子窗体的数据

将子窗体数据导出到Excel代码如下:

Private Sub cmdExport_Click()

    Dim obj As Object

    Me![frmExamregister_child].SetFocus

    DoCmd.RunCommand acCmdSelectAllRecords

    DoCmd.RunCommand acCmdCopy

    DoEvents

    SendKeys "{TAB}", True

    Set obj = CreateObject("Excel.Application")

    obj.Workbooks.Add

    obj.Visible = True

    SendKeys "^v", True

End Sub

具体见http://www.accessoft.com/article-show.asp?id=6884