在usysfrmMain代码界面，把原来的Case下的"导出"下的代码" docmd.openform "usysfrmExport",改成为 Forms!usysfrmMain!frmChild.Form.btnDataOut, 然后在相应的子窗体中写上如下代码: 

 Public Sub btnDataOut()
    Dim obj As Object
    If Isloaded("usysfrmMain") Then
        Forms!usysfrmMain!frmChild.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 If
End Sub

回到主面板,(已启用了导出按钮),点击"导出",就能导出,经过查找后的子窗体的记录,也能导出.而且代码通用,不附加任何条件,复制至其它子窗体均可使用.用起来真方便,简单,实用.