如何将了窗体的数据导出到EXCL？？

elemodel

如何将了窗体的数据导出到EXCL？？

一点击导出的是主窗体的，如何导出查询后的子窗体数据？

先谢谢了！

sgrshh29

一种方法,也是论坛上的.Private Sub Cmd_导出_Click()

On Error GoTo Cmd_导出_Click_Err

    ' 反查询结果导出到EXCL显示打印

   

    Me.日志查询子窗体.SetFocus        '把焦点移动子窗体上  Child28要操作的子窗体的名称

    DoCmd.RunCommand acCmdSelectAllRecords

    DoCmd.RunCommand acCmdCopy

  

    Dim obj As Object

    Set obj = CreateObject("excel.application")    obj.Workbooks.Add

    obj.Visible = True    SendKeys "^v"

Cmd_导出_Click_Exit:

    Exit SubCmd_导出_Click_Err:

    MsgBox Error$

    Resume Cmd_导出_Click_ExitEnd Sub