怎样使用SERVERS中的EXCEL类的控件？

Question

大家好：
我想将我的数据库的资料导出为EXCEL文件,但从来没有用过EXCELAPPLICATION等控件,有没有哪位比较熟悉的请大致讲一下使用流程及方法,能给一个例子最好，谢谢了

Answer 1

procedure TForm5.Button1Click(Sender: TObject);
var
asheet:Variant;
 begin
 
  
Form5.ExcelApplication1.Visible[0]:=False;
Form5.ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
asheet:=Form5.ExcelApplication1.Worksheets.Item[1];
  ///  asheet.cells[1,1].value:='周数';  asheet.cells[1,2].value:='周一[1-2]';  
   asheet.cells[1,3].value:='周一[3-4]';
    asheet.cells[1,4].value:='周一[5-6]';
     asheet.cells[1,5].value:='周一[7-8]';
      asheet.cells[1,6].value:='周一[晚]';      
 for i:=0 to table1.RecordCount-1 do
    begin
          Table1.RecNo:=i+1;
                 for r:=0 to table1.FieldCount-1 do
                 begin
                    if Not Table1.Fields.Fields[r].IsNull then
                    asheet.cells[i+2,r+1].value:=Table1.Fields.Fields[r].AsString;
                  end;
    end;
 end;
 
  ////////////////////////////////
 asheet.SaveAs(p);///保存
 asheet.application.quit;
     end;
end;
上面的代码是我以前做的一个程序的一部分，虽然现在改了改，但是还是可以看出ExcelApplication最基本的用法是什么，看看吧，很简单的