请问如何把列表框的数据导出excel表格

tzt0625

列表框里有好几列的数据，用哪个命令导出呢？

Grant

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

版主大哥，能否我将这代码改为me.list 之后，老出现错误是说 类不支持自动化 ，也不知道是不是有东西没有引用啊？

andymark

要引用EXCEL对象

tzt0625

我已经引用了啊，大哥您看看

名叫幸福

楼主是指哪的数据呀？列表框的吗？

tzt0625

对的 列表框的数据源

goto2008

不知哪位朋友有现成的例子，借来学习，