Office中国论坛/Access中国论坛

标题: 弹出式窗体的子窗体导出到ｅｘｃｅｌ的问题 [打印本页]

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

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/)