怎么把listview里的内容导出到excel？

Question

找了很多代码 很少看到有这个功能  能给点提示吗
还有报表是哪个控件？ delphi自带的好用还是第3方的好用？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'aa.xls');
end;有關制作報表的控件很多如：
FastReport,Quick Report,PReport等控件
你可到http://2ccc.com去找

Answer 2

如果只是把列表中的内容导出到EXCEL就比较好办.
DELPHI下的我暂时没做地/不过我做了个VB下导出的.
主要体会就是建立一个EXCEL对象,一个EXCEL的工作簿,一个EXCEL的工作表,
然后操纵表的行和列...

Answer 3

uses ComObj;
procedure Tzong_Form.BitBtn2Click(Sender: TObject);
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;

Answer 4

http://search.csdn.net/Expert/topic/1094/1094786.xml?temp=.8887598

Answer 5

TO楼上的：判断LISTITEM的SELECTED属性不就行了吗，好歹4个裤衩还问这些问题