想把DELPHI做的数据另存为EXCEL,如何实现?

Question

同题

Answer 1

TMS AdvStringGrid 提供了LoadAsExcel 函数，不用编程

Answer 2

[把他导出到excel啊]
对,如何导出到excel,命令如何写?

Answer 3

use comobj;procedure TForm1.Button3Click(Sender: TObject);
var
  e:variant;
  i,j:integer;
begin
  e:=createoleobject('excel.application');
  e.visible:=true;
  e.caption:='用户交费表';
  e.workbooks.add;   e.activesheet.rows[1].font.bold:=true;   //第一行列名属性设置;
   e.activesheet.rows[1].font.color:=clred;
   for j:=0 to adoquery2.FieldCount-1 do   //第一行列名;
   begin
   e.cells[1,j+1].value:=adoquery2.Fields[j].FieldName ;
   next;
   end;   adoquery2.first;                         //导出内容;
   for i:=1 to adoquery2.recordcount do
    begin
      begin
       for j:=0 to adoquery2.FieldCount-2 do //-2 代表把back列放弃;
       begin
         e.cells[i+2,j+1].value:=adoquery2.Fields[j].AsString ;
         next;
       end;
      end;
      adoquery2.next;
      next;
    end;
     ShowMessage('数据导出成功');
     e.workbooks.close;
     e.quit;
end;

Answer 4

如何用DELPHI做的应用程序,新建一个EXCEL文件?有人答对,+20分?

Answer 5

如何用DELPHI做的应用程序,新建一个EXCEL文件?有人答对,+20分?

Answer 6

看看这里吧http://expert.csdn.net/Expert/topic/2081/2081599.xml?temp=.3084375

Answer 7

var  
  I: Integer;  
  Str: String;  
  StrList: TStringList;      //用于存储数据的字符列表
begin  
  StrList := TStringList.Create;  
  try    
    with Table1 do         //这里用的是Table,也可以用别的,如AdoQuery 
    begin      
      First;      
      while not Eof do      
      begin      
        Str := '';        
        for I := 0 to FieldCount-1 do      
          Str := Str + Fields[I].AsString + #9;  
        StrList.Add(Str);        
        Next;      
      end;      
      StrList.SaveToFile('test.xls');    
    end;    
  finally    
    StrList.Free;  
  end;
end;

Answer 8

我也正碰到同样的问题，在大富翁上搜索了好久，没有好的答案，可以导出xls文件的控件：
f1book,sreport等。
我想用f1book，但是没有找到下载的地方

Answer 9

http://www.51delphi.com/delphi/download?num=202