1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

rocedure tform1.excel_fuellen;
var excel : variant;
    z : integer;
    format : OleVariant;
    zeichen : string;
begin
  excel := CreateOleObject('Excel.Application');
  excel.Application.sheetsinnewworkbook := 1;
  excel.workbooks.add;
  excel.sheets.add;
  excel.sheets[1].Name := 'Sheet1';
  excel.sheets['Sheet1'];
  excel.sheets['Sheet1'].cells[1,1].value := 'Kunden_USt-IdNr.';
  excel.sheets['Sheet1'].cells[1,2].value := 'Betrag';
  excel.sheets['Sheet1'].cells[1,3].value := 'Dreiecksgeschäft';
  excel.range['A1:C1'].select;
  excel.selection.font.bold := true;

  ADODataSet1.Recordset := ADOConnection1.Execute('Select * from bheuro.zmfiamt');
  ADODataSet1.Recordset.MoveFirst;
  zeichen := 'false';

  for z := 1 to ADODataSet1.RecordCount do begin
    excel.sheets['Sheet1'].cells[z+2,1].value := VarToStr(ADODataSet1.Recordset.Collect[0]);
    excel.sheets['Sheet1'].cells[z+2,2].value := VarToStr(ADODataSet1.Recordset.Collect[1]);
    excel.sheets['Sheet1'].cells[z+2,3].value := zeichen;
    excel.range['A1:C'+inttostr(z+2)].select;
    excel.selection.columns.autofit;
    ADODataSet1.Recordset.MoveNext;
  end;

  excel.activeworkbook.saveas('c:\ZM.xls');
 //excel.visible := true;
  excel.quit;
  excel := Unassigned;

end;