求助,如何把listview中的数据导出到EXCEL 20
OptionExplicitPublicxlAppAsExcel.Application'Excel对象PublicxlBookAsExcel.Workbook'工作簿P...
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 展开
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 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询