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:
38:

Procedure TExportieren.ExcelAusgabe;
var
  Zeile  : Integer;
  Excel  : variant;

begin
  try
    Excel := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel kann nicht gestartet werden');
    exit;
  end;
  Excel.Visible := true;
  Excel.Workbooks.add(Grundpfad + '\Listen\Debitor.xls');

  zeile        := 2;
  MainForm.Table1.First;
  { Die Werte aus der Table1 schreiben wir jetzt in das Excel.Worksheet.       }
  Repeat
  With MainForm Do
    Begin
      IF Table1.FieldbyName('Status_geloescht').AsBoolean = False THEN
      Begin
        Excel.Cells[Zeile,1].value  := Table1.FieldbyName('Kundennr').AsString;
        Excel.Cells[Zeile,2].value  := Table1.FieldbyName('Anrede').AsString;
        Excel.Cells[Zeile,3].value  := Table1.FieldbyName('Name').AsString;
        Excel.Cells[Zeile,4].value  := Table1.FieldbyName('Vorname').AsString;
        Excel.Cells[Zeile,5].value  := Table1.FieldbyName('Firma').AsString;
        Excel.Cells[Zeile,6].value  := Table1.FieldbyName('Adresse1').AsString;
        Excel.Cells[Zeile,7].value  := Table1.FieldbyName('Adresse2').AsString;
        Excel.Cells[Zeile,8].value  := Table1.FieldbyName('PLZ').AsString;
        Excel.Cells[Zeile,9].value  := Table1.FieldbyName('Ort').AsString;
        Zeile := Zeile + 1;
       End;
      Table1.Next;
    End;
  Until MainForm.Table1.eof;
end;