Question

我用vb编了一个小程序，怎么才能让列表框的数据到出到Excel 中呢？越简单越好。我是初学的！

Answer 1

也可以创建一个后缀为csv的文本文件，将列表框的数据读出来，一个一个写入这个文件，数据之间用“,”，隔开就可以了。csv是excel的无格式类型文件。

Answer 2

Private Sub Command1_Click()
Dim I As Integer
Dim oExcel As Object
Dim oBook As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()
Set xlSheet = oBook.Worksheets(1)
oExcel.Visible = True
For I = 0 To List1.ListCount - 1
xlSheet.Cells(1 + I, 1).Value = List1.List(I)
Next
End Sub

追问

太感谢了。。。。。