极简单问题－－怎样把DBGrid中的数据导出到EXCEL中。

Question

立即结账！！！

Answer 1

http://expert.csdn.net/Expert/topic/2335/2335598.xml?temp=.8837854

Answer 2

以前贴子发过的：
 var i,j : integer;begin
    adoquery1.Open;  //连接数据库，这里只演示SQL我先写进去了
    ea1 := texcelapplication.Create(self);  //excelapplication1
    ew1 := texcelworkbook.Create(self);     //excelworkbook1
    ews1 := texcelworksheet.Create(self);   //excelworksheet1
    ea1.Connect;
    ea1.Workbooks.Add(null,0);
    ew1.ConnectTo(ea1.Workbooks[1]);
    ews1.ConnectTo(ew1.Sheets[1]as _worksheet);
    if adoquery1.RecordCount > 0 then    begin
        i:= 0;
        while not adoquery1.Eof
        do        begin
            for j:=0 to adoquery1.FieldCount-1
            do
            begin
            ews1.Cells.Item[i+1,j+1]:= adoquery1.Fields[j].AsString;
            end;
        i:= i+1;
        adoquery1.Next;
        end;
    end;
       ew1.SaveCopyAs('e:\temp.xls');//保存EXCEL这里你也可以自己写更多
       //最后注意这里要把excelapplication,excelworkbook,excelworksheet
       //关闭掉，怎么关？这个自己摸摸吧。不写的话要看到EXCEL表最好把机器注销一下
//这里只是一个示例你还可以在里面加入写表头的代码等其他功能。    end;