弹出式窗体的子窗体导出到ｅｘｃｅｌ的问题

sos2002

代码如下

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

试试吧:

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

对不起,我想复制的是目前Me![chd查询结果].Form 数据表中 显示的内容，不是复制recordset，因为有的不是字段是自动计算的值

方漠

在后台依据Me![chd查询结果]再开一个查询导出到EXCEL不就行了吗？何必非得用这种方式。

海狸先生

可以参考这里http://www.accessoft.com/blog/more.asp?name=guotianxin&id=86

Alashome

good