Question

求助，如何把listview中的数据导出到EXCEL

Option Explicit
Public xlApp As Excel.Application 'Excel对象
Public xlBook As Excel.Workbook '工作簿
Public xlSheet As Excel.Worksheet '工作表

Public Function SaveAsExcel(sFileName As String)
Dim i, j As Integer
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表''

'把listview1中的数据全部导入到EXCEL包括标题

xlSheet.SaveAs sFileName ' 保存 Worksheet.
xlBook.Close ' 关闭 Workbook
xlApp.Quit ' 关闭 Excel

Set xlApp = Nothing '释放 Excel 对象.
Set xlBook = Nothing
Set xlSheet = Nothing

Err_Handler:
If Err = 0 Then
Screen.MousePointer = vbDefault
Else
MsgBox "未知错误！ " & vbCrLf & vbCrLf & Err & ":" & Error & " ", vbExclamation
Screen.MousePointer = vbDefault
End If
End Function

Answer 1

色电弧将老者护在了其