平台上自定义不设条件的通用导出

时　间:2012-04-27 01:34:39
作　者:殷小宝   ID：11152  城市：芜湖
摘　要:平台上不设任何条件通用导出代码。
正　文:

在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

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