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