TListView里的东东 有没有什么途径以Excel文档存下来?

Question

TListView里的东东 有没有什么途径以Excel文档存下来?

Answer 1

如果你知道EXCEL的格式的话,可以自己写,也可以用提供的控件
记得以前看过一个文章你可以试试
1 2 3
4 5 6
13 14 15
中间用TAB分割开,然后保存起来扩展名用XSL,再用EXCEL也能打开的,

Answer 2

或者其它表格的形式输出(保存到某种文件)比如html,具体方法 谁能指点指点

Answer 3

先执行saveToFile，然后得到一个xml文件，最后用excel导入

Answer 4

麻烦点儿的。用ole自动化手工写吧。

Answer 5

uses comobj;var
  excelapp,newbook,newsheet:variant;
  i:integer;
begin
try
  excelapp:=createoleobject('excel.application');
  newbook:=excelapp.workbooks.add;
  newsheet:=newbook.sheets.add;
  excelapp.visible:=true;
  for j:=0 to listview1.Items.Count-1 do
  for i:=0 to listview1.Columns.Count-2 do
  //excel的行，列下标从1开始，所以要加1
  newsheet.cells.item(j+1,i+1):=lv1.Items[j].SubItems[i];
finally
  newbook:=Unassigned;
  newsheet:=Unassigned;
  excelapp:=Unassigned;
end;
end;delphi6下调试通过，可以给分了吧