请问哪有delphi操作excel的源代码下载？

Question

如题。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
range1:variant;
begin
    adoquery1.close;
    adoquery1.open;
    j:=adoquery1.RecordCount;
    if j>0 then
    begin
          k:=j+1;
          xlapp:=createoleobject('excel.application');
          xlapp.visible:=true;
          xlapp.workbooks.add(xlwbatworksheet);
          xlapp.workbooks[1].worksheets[1].name:='加油记录';
          range1:=xlapp.workbooks[1].worksheets['加油记录'].range['a1:e'+inttostr(k)];
          range1.borders.linestyle:=xlcontinuous;
          xlapp.range('a1'):='记录号';
          xlapp.range('b1'):='车牌号';
          xlapp.range('c1'):='油品';
          xlapp.range('d1'):='数量';
          xlapp.range('e1'):='单位号';
          for i:=2 to j+1 do
          begin
              xlapp.cells[i,1]:=adoquery1.fieldbyname('jlh').asstring;
              xlapp.cells[i,2]:=adoquery1.fieldbyname('cph').asstring;
              xlapp.cells[i,3]:=adoquery1.fieldbyname('yp').asstring;
              xlapp.cells[i,4]:=adoquery1.fieldbyname('a22').asstring;
              xlapp.cells[i,5]:=adoquery1.fieldbyname('khdm').asstring;
              adoquery1.Next;          end;
          xlapp.workbooks[1].worksheets[1].printout;
//          xlapp.workbooks[1].worksheets[1].
    end;    xlapp.quit;
end;

Answer 2

编译的时候提示未声明的标志符 createoleobject！