Hallo Linkat,
ich weis nicht, ob Du das Problem schon gelöst hast?
Aber vielleicht hilft Dir das weiter:
Delphi-Quellcode:
Excel.Worksheets['Tabelle1'].Activate; // Test-Bereich anlegen.
for I := 0 to 10 do
begin
Excel.cells[i+5, 2]:= 'Zeile'+ inttostr(i);
Excel.cells[i+5, 3]:= 'Zeile1'+ inttostr(i);
end;
Excel.Worksheets['Tabelle1'];
Excel.Range['B5:C15'].Name := 'Test'; // Bereich Test einrichten
Zeilen:= Excel.range['Test'].rows.count; // Anzahl Zeilen im Bereich
Spalten:= Excel.range['Test'].columns.count; // Anzahl Spalten im Bereich
OleArray:=VarArrayCreate([Spalten,Zeilen],varVariant); // dyn. Array
OleArray:= Excel.Range['Test'].cells; // Range-Obj nach OleArray
// übertragen
for z := 1 to Zeilen do // den Bereich anzeigen.
begin
for s := 1 to Spalten do
begin
Rueckgabe:= OleArray.item[z,s].value;
ShowMessage('Laß mal sehen: '+ Rueckgabe);
end;
end;
Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.