Office中国论坛/Access中国论坛

标题: 请问如何把列表框的数据导出excel表格 [打印本页]

作者: tzt0625 时间: 2009-2-19 23:23
标题: 请问如何把列表框的数据导出excel表格
列表框里有好几列的数据，用哪个命令导出呢？

作者: Grant 时间: 2009-2-20 10:19
me.List24.Recordset 获得记录集后用ado进行导出

改进一下下边函数即可

On Error GoTo errit

Dim oExcel As Object
Dim oBook As Object
Dim I As Integer

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()

Me.子窗体.Form.Recordset.MoveFirst

For I = 0 To Me.子窗体.Form.Recordset.Fields.Count - 1
oBook.Worksheets(1).Cells(1, I + 1).Value = Me.子窗体.Form.Recordset.Fields(I).Name
Next

oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.子窗体.Form.Recordset
oBook.SaveAs ("d:\Test.xls")
MsgBox "导出成功"

errexit:
oBook.Close False
oExcel.Quit
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub

errit:
MsgBox "错误号为" & Err.Number & " 错误说明：" & Err.Description
Resume errexit

作者: tzt0625 时间: 2009-2-20 11:44
版主大哥，能否我将这代码改为me.list 之后，老出现错误是说类不支持自动化，也不知道是不是有东西没有引用啊？

作者: andymark 时间: 2009-2-20 11:47
要引用EXCEL对象

作者: tzt0625 时间: 2009-2-20 12:05
我已经引用了啊，大哥您看看
[attach]35462[/attach]

作者: 名叫幸福 时间: 2009-2-25 22:20
楼主是指哪的数据呀？列表框的吗？

作者: tzt0625 时间: 2009-2-26 11:49
对的列表框的数据源

作者: goto2008 时间: 2009-12-7 11:49
不知哪位朋友有现成的例子，借来学习，

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