ole连接excel.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 37 行

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  xlApp,Range:Variant;
  i,j,k:Word;
begin
   j:=adoTest.RecordCount;
   if j>0 then begin
   k:=j+1;
   xlApp:=CreateOleObject('Excel.Application');
   xlApp.Visible:=true;
   xlApp.Application.Caption:='开支表';
   xlApp.Workbooks.add(xlWBatWorkSheet);
   xlApp.WorkBooks[1].WorkSheets[1].name:='开支表测试';
   Range:=xlApp.Workbooks[1].WorkSheets['开支表测试'].Range['A1:E'+IntToStr(k)];
   Range.Borders.LineStyle:=xlContinuous;
   xlApp.Range('A1'):='序号';
   xlApp.Range('B1'):='日期';
   xlApp.Range('C1'):='开支原因';
   xlApp.Range('D1'):='数量';
   xlApp.Range('E1'):='支出';
   xlApp.Range('F1'):='收入';
   xlApp.Range('G1'):='备注';
   For i:=2 to j+1 do begin
     xlApp.Cells[i,1]:=IntToStr(i-1);
     xlApp.Cells[i,2]:=adoTest.Fields[1].AsDateTime;
     xlApp.Cells[i,3]:=adoTest.Fields[2].AsString;
     xlApp.Cells[i,4]:=adoTest.Fields[3].AsString;
     xlApp.Cells[i,5]:=adoTest.Fields[4].AsCurrency;
     xlApp.Cells[i,6]:=adoTest.Fields[5].AsCurrency;
     xlApp.Cells[i,7]:=adoTest.Fields[6].AsString;
     adoTest.Next;
   end;
   xlApp.WorkBooks[1].WorkSheets[1].PrintOut;
   end;
   xlApp.Quit;
end;