您所在位置：主题：怎么把listView中的数据导入到Excel 中？
punker
[专家分：220] 发布于 2008-02-17 19:15:00
Dim i As Integer, j As Integer
Dim newXls As Excel.Application, newBook As Excel.Workbook, newSheet As Excel.Worksheet
Set newXls = New Excel.Application
Set newBook = newXls.Workbooks.Add
Set newSheet = newBook.Worksheets(1)
newXls.Visible = True
'指定列标头
For i = 0 To Me.lvwShow.ColumnHeaders.Count - 1
newSheet.Cells(1, i + 1) = Me.lvwShow.ColumnHeaders.Item(i + 1).Text
Next
'导入数据
这块怎么写？？？