求将listview中数据导成Excel的代码~~

Question

同题，大家帮帮忙，小弟初学DELPHI.....

Answer 1

去www.2ccc.com 搜索一下,会有你想要的

Answer 2

首先自然是历遍，然后使用DELPHI自带得组件或者使用OLE得办法将数据导入EXCEL（关于此部分得内容，可以搜索以前得帖子，或者看FAQ，有你需要得）。

Answer 3

一行一行地读出来,写到EXCEL里就行了

Answer 4

var
myExcel:Variant;
i,j:integer;
begin
try
myExcel:=createOleObject('Excel.application');
myExcel.Visible:=True;
myExcel.WorkBooks.add;for i:=0 to listview1.Columns.Count-1 do
  myExcel.workSheets[1].Cells[1,i+1].Value:=''''+listview1.Column[i].Caption;if listview1.Items.Count>0 then
  for j:=0 to listview1.Items.Count-1 do
    begin
      for i:=0 to listview1.Columns.Count-1 do
        if i=0 then
          myExcel.workSheets[1].Cells[j+2,i+1].Value:=trim(listview1.Items[j].Caption)
        else
          myExcel.workSheets[1].Cells[j+2,i+1].Value:=trim(listview1.Items[j].SubItems[i-1]);
    end;
except
 Messagedlg('Export Error!',mtWarning,[mbOK],1);
end;
end;