谁知道如何怎样将DELPHI中的DBGrid数据转换为EXCEL格式保存起来，先谢了！！！我在线等候

Question

可怜的孩子！你自己使用server那一组控件来写吧！
只要把内容填进去就行了，不是太复杂！不行的花去看excell的帮助上面不少的开发信息，

Answer 1

procedure tfrmchaxun.toExcel(filename:string);
var
RangeE:excel2000.range;
Row:integer;
Book1:TBookStr;
procedure insertRecord();
var
 i:integer;
begin
   with dm.adochaxun do
   begin
    RangeE:=excelapplication1.activecell;
    for i:= 0 to dbgrid1.Columns.Count -1 do
    begin
     rangeE.value:=dbgrid1.columns[i].title.caption;
     rangeE:=rangee.next;
    end;
    disablecontrols;
    try
     book1:=Book;
     try
      first;
      Row:=2;
      while not eof do
      begin
         rangee:=excelapplication1.range['a'+inttostr(row),'a'+inttostr(row)];
         for i:=0 to fields.Count -1 do
         begin
          RangeE.value:=fields[i].asstring;
          rangee:=rangee.next;
          end;
          next;
          inc(row);
          end;
         finally
         Book1:=book;
         end;
         finally
         enablecontrols;
         end;
         end;
         end;
      begin
      try
       excelapplication1.Connect ;
       excelapplication1.Workbooks.Add(null,0);
       insertRecord();
       excelapplication1.visible[0]:=true;
       excelapplication1.Save(filename);
       excelapplication1.Quit ;
       finally
       excelapplication1.Disconnect ;
     end;
   end;