Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: excel to interbase

    Delphi
    by Jumpy, 21. Sep 2011
  Zu deiner bisherigen Variante:
  cells.find liefert ein Range Objekt zurück, davon liefert .Offset(0,-1) wieder ein Range-Objekt, nämlich das mit der Zelle links daneben zurück und .Value liefert deren Wert:
  
  
  function TForm1.lese_Artikel(art: string):String;
  begin
  result:=excel.Worksheets.cells.find(art, MatchCase:=False, SearchFormat:=False).Offset(0,-1).Value
  end;