Office中国论坛/Access中国论坛

标题: 弹出式窗体的子窗体导出到excel的问题 [打印本页]

作者: sos2002    时间: 2004-12-12 06:34
标题: 弹出式窗体的子窗体导出到excel的问题
代码如下

Me![chd查询结果].SetFocus

'Me![chd查询结果].Form.A0101.SetFocus

DoCmd.RunCommand acCmdSelectAll 'acCmdSelectAllRecords 此处提示不能运行

DoCmd.RunCommand acCmdCopy

Dim xls

    Set xls = CreateObject("Excel.application")

'

With xls

.Workbooks.Add

.Range("A1").Select

.ActiveSheet.Paste

End With

    xls.Selection.Columns.AutoFit

    xls.Selection.Rows.AutoFit

    xls.Selection.Interior.ColorIndex = -4142 'xlNone

'-------------------------------------------格式化电子表格 END-----------------------------------------------

    '释放对象变量

xls.ActiveSheet.SaveAs FileName:="" & FileName

xls.Visible = True

    Set xls = Nothing


作者: NeilChen    时间: 2004-12-14 23:27
试试吧:

Dim xls as object

dim rst as recordset

set rst=Me![chd查询结果].Form.recordset.clone

    Set xls = CreateObject("Excel.application")

With xls

.Workbooks.Add

.Range("A1").copyfromrecordset rst

End With

    xls.Selection.Columns.AutoFit

    xls.Selection.Rows.AutoFit

    xls.Selection.Interior.ColorIndex = -4142 'xlNone

'-------------------------------------------格式化电子表格 END-----------------------------------------------

    '释放对象变量

xls.ActiveSheet.SaveAs FileName:="" & FileName

xls.Visible = True

    Set xls = Nothing



[此贴子已经被作者于2004-12-14 15:27:20编辑过]


作者: sos2002    时间: 2004-12-16 19:14
对不起,我想复制的是目前Me![chd查询结果].Form 数据表中 显示的内容,不是复制recordset,因为有的不是字段是自动计算的值
作者: 方漠    时间: 2004-12-16 21:49
在后台依据Me![chd查询结果]再开一个查询导出到EXCEL不就行了吗?何必非得用这种方式。
作者: 海狸先生    时间: 2005-6-9 00:59
可以参考这里http://www.accessoft.com/blog/more.asp?name=guotianxin&id=86
作者: Alashome    时间: 2015-7-2 14:42
good




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3