ListView中的数据导出到excel.docxVIP

Public Function Export2Excel(ByVal LV_object As ListView, SheetName As String, OnlySelect As Boolean, ExcelColAutoFit As Boolean, PageHengxiang As Boolean)ListView控件输出数据到ExcelDim ErrHnd As LongOn Error GoTo ErrHnd Dim Row As Long Dim Col As Long Dim objExl As Excel.Application? ?声明对象变量 Set objExl = New Excel.Application? ? 初始化对象变量 With objExl?.SheetsInNewWorkbook = 1??将新建的工作薄数量设为1?.Workbooks.Add? ?? ?? ? 增加一个工作薄?.Sheets(.Sheets.Count).Name = SheetName??修改工作薄名称?.Sheets(SheetName).Select? ???选中工作薄book1?ListView标题行获取?.Selection.NumberFormatLocal = @??设置格式为文本?For Col = 1 To LV_object.ColumnHeaders