通过OLE将ListView数据导出到Excel

最新推荐文章于 2022-08-16 11:19:50 发布

原创最新推荐文章于 2022-08-16 11:19:50 发布 · 988 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#listview #excel #string #报表 #c

Windows编程专栏收录该内容

11 篇文章

订阅专栏

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

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;