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]