Einzelnen Beitrag anzeigen

Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Zugriff auf eine Excel-Zelle mit Namen

  Alt 9. Feb 2008, 02:25
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.
  Mit Zitat antworten Zitat