通过OLE将ListView数据导出到Excel

最新推荐文章于 2021-12-12 23:15:36 发布

DerryZhang

最新推荐文章于 2021-12-12 23:15:36 发布

阅读量979

点赞数

CC 4.0 BY-SA版权

分类专栏： Windows编程文章标签： listview excel string 报表 c

本文链接：https://blog.youkuaiyun.com/derryzhang/article/details/4520609

Windows编程专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一段使用Delphi编程语言实现的功能，该功能能够将列表视图中的数据导出到Microsoft Excel文件中。代码详细展示了如何创建Excel工作簿、设置单元格数据以及在完成后保存或显示Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TfrmMain.ExportListToExcel(showWhenFinished:Boolean = False); var fileName, strItem: string; excelObj: Variant; workbook, worksheet: OleVariant; i, j: integer; begin fileName := 'C:/MyExcel.xls'; try excelObj := CreateOleObject('Excel.Application'); excelObj.Application.Workbooks.Add; excelObj.Caption := '将列表导出到Excel表格中'; workbook := excelObj.Application.workbooks[1]; worksheet := workbook.WorkSheets.Item[1]; for i := 0 to lvwRvuInfo.Columns.Count-1 do begin worksheet.Cells[1,i+1] := lvwRvuInfo.Columns[i].Caption; end; for i := 0 to lvwRvuInfo.Items.Count-1 do begin for j := 0 to lvwRvuInfo.Columns.Count - 1 do begin if (j=0) then strItem := lvwRvuInfo.Items[i].Caption else strItem := lvwRvuInfo.Items[i].SubItems[j-1]; worksheet.Cells[i+2, j+1] := strItem; end; end; if showWhenFinished then begin excelObj.Application.Visible := true; end else begin excelObj.Application.DisplayAlerts := false; workbook.SaveAs(fileName); stbMain.Caption := '报表已自动保存为：' + fileName; end; excelObj.Application.Quit; except ShowMessage('创建Excel文件失败，请检查您是否安装了Excel！'); end; end;