stringgrid nach Excel exportieren

[wussi]

Hallo,
ich möchte ein stringgrid variabler Größe nach Excel exportieren (D4).
Code:

Delphi-Quellcode:

       var Excel: variant;
       ...
       Excel := CreateOleObject('Excel.Application');
       Excel.Workbooks.Add;
       For zeile:=1 to 5 do
         For spalte:=1 to 5 do
           begin
           stringgrid1.cells[spalte-1,zeile-1]:=inttostr(spalte+(zeile-              1)*5);
           Excel.Cells[zeile,spalte].Value:=stringgrid1.cells[spalte-              1,zeile-1];
           end;
       Excel.Worksheets.add;
       Excel.Worksheets[1].Activate;

Diese Zeile funktioniert:
       Excel.Worksheets['Tabelle1'].Range['A1:E5'].copy; ABER DIESE generiert eine Fehlermeldung(Schreibweise für variable Größe):

Delphi-Quellcode:

       Excel.Worksheets['Tabelle1'].Range[[Excel.Cells[1,1],
                                          [Excel.Cells[5,5]].Copy;

       
       
       ...    //Excel ordnungsgemäß schließen

Vielleicht hat jemand eine Idee.

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]