listview的值导出至EXCEL,该如何操作?

Question

请问将listview的值导出至EXCEL,该如何操作?

Answer 1

var   
      myexcel:variant;   
      workbook:olevariant;   
      worksheet:olevariant;   
      k:integer;   
  begin   
          try   
    
        myexcel:=createoleobject('excel.application');   
        myexcel.application.workbooks.add;   
        myexcel.caption:='将数据导入到EXCEL表中';   
        myexcel.application.visible:=true;   
        workbook:=myexcel.application.workbooks[1];   
        worksheet:=workbook.worksheets.item[1];   
        except   
          showmessage('EXCEL不存在！');   
        end;   
        worksheet.cells[1,1]:='年月';   
        worksheet.cells[1,2]:='余额';   
        worksheet.cells[1,3]:='收入';   
        worksheet.cells[1,4]:='支出';   
      for   k:=0   to   listview1.items.count-1   do   
          begin   
              worksheet.cells[k+2,1]:=Listview1.items[k].caption;//把第一列的数据放入Excel的第一列   
      //其他列的同理   
              worksheet.cells[k+2,2]:=Listview1.items[k].SubItems[0];   
              worksheet.cells[k+2,3]:=Listview1.items[k].SubItems[1];   
              worksheet.cells[k+2,4]:=Listview1.items[k].SubItems[2];   
    
        end;   
  end;