如果将Listview中的内容保存到EXCEL中？？

Question

如题？

Answer 1

前些日子我写过ListView2Word和ListView2Excel两个函数，不过是C++Builder的，如果有兴趣可以略参考一下。http://ccrun.com/article/go.asp?i=633&d=vytvc6

Answer 2

uses ComObj;procedure TForm1.BitBtn1Click(Sender: TObject);
var
  v:Variant;
begin
  try
    v:= CreateOleObject('Excel.Application');
    v.Visible := true;
    v.Workbooks.Add;//新建EXCEL
    v.Workbooks[1].WorkSheets[1].Name := 'Sheet1';
    v.Workbooks[1].WorkSheets[1].Cells[1,1] :='abc';
    v.Workbooks[1].WorkSheets[1].Cells[2,1] :='1233';
    // ...
  except
    Application.MessageBox('创建Excel失败，可能没装Excel！', '提示');
  end;
end;

Answer 3

Function ExportToExcel(TempLV:tListView;FileName:string):Boolean;
var i,j:Integer;
   StrList: TStringList;
   Str,TempStr:string;
begin
  Result:=false;
  if TempLV.Items.Count<1 then exit;
  if TempLV.Columns.Count<1 then exit;
  StrList := TStringList.Create;
  Str:= '';
  for i:=0 to TempLV.columns.count-1 do
    Str := Str+TempLV.columns[i].caption+#9;
  StrList.Add(Str);
  for I := 0 to TempLV.items.Count-1 do
  begin
    Str := '';
    TempStr:=TempLV.Items[i].Caption;
    Str :=TempStr+#9;
    for j:=0 to TempLV.columns.count-2 do
    begin
      TempStr:=TempLV.Items[i].SubItems[j];
      Str:=Str+TempStr+#9;
    end;
    StrList.Add(Str);
  end;
  StrList.SaveToFile(FileName);
  StrList.Free;
  Result:=true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportToExcel(Listview1,'c:\Temp.xls');
end;

Answer 4

难道回复人： xiangwangz(&lt;*敝屣荣华 浮云生死 此身何惧*&gt;) ( ) 信誉：105 写的还不够清楚？？？吗？？？

Answer 5

用EjunExcelRW控件吧，不用装Excel库，直接存为Excel的Xls文件
http://www.e-jun.com/bbs/Announce/Announce.asp?BoardID=3&ID=15

Answer 6

// Excel读写控件使用例子
procedure TForm1.Button1Click(Sender: TObject);
var
  vWorkbook: IEjWorkbook;
  vSheet: IEjWorkSheet;
  iRow, iCol: Integer;
  vCell: TZjCell;
begin
  CreateEjunWorkBook(vWorkbook);  vSheet := vWorkbook.Sheets.Add(0);
  vSheet.SheetName := 'hello';
  //添加单元格
  vSheet.AddCell(0, 0, 'EjunXlsRW Demo');
  vSheet.AddCell(1, 8, '数字类型');
  vSheet.AddCell(2, 8, 888);
  vSheet.AddCell(1, 6, '2005-10-5');
  //合并单元格
  vSheet.MergeCell(0, 0, 6, 0);
  vSheet.MergeCell(2, 2, 4, 4);
  //保存为Excel文件格式文件
  vWorkbook.SaveToExcel('d:\test.xls');
  // 用Excel打开刚才保存的文件，以资检验
  ShellExecute(Handle, nil, 'd:\test.xls', nil, nil, SW_NORMAL);end;

Answer 7

uses ComObj;procedure TForm1.BitBtn1Click(Sender: TObject);
var
  v:Variant;
begin
  try
    v:= CreateOleObject('Excel.Application');
    // 不显示Excel窗口
    v.Visible := False;
    v.Workbooks.Add;//新建EXCEL
    v.Workbooks[1].WorkSheets[1].Name := 'Sheet1';
    v.Workbooks[1].WorkSheets[1].Cells[1,1] :='abc';
    v.Workbooks[1].WorkSheets[1].Cells[2,1] :='1233';
    // 保存文件
    v.Workbooks[1].SaveAs('c:\abc.xls');
  except
    Application.MessageBox('创建Excel失败，可能没装Excel！', '提示');
  end;
end;

Answer 8

忘了关闭Excel:
    v.Quit;
    v := Unassigned;