Office中国论坛/Access中国论坛

标题: 如何将了窗体的数据导出到EXCL？？ [打印本页]

作者: elemodel 时间: 2005-7-20 07:43
标题: 如何将了窗体的数据导出到EXCL？？
[attach]11897[/attach]

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

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

先谢谢了！

作者: sgrshh29 时间: 2005-7-20 13:00
一种方法,也是论坛上的.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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)