In Excel Worksheet mit OLE suchen

[Keldorn]

nutz mal bitte die Delphi-tags, wenn du Code postest.

probier mal das, habe ich in meinen Testprojekten gefunden. Ich weiß jetzt aber nicht mehr wieso weshalb warum , mußt Du dir selber anpassen.

Delphi-Quellcode:

    //Var erg:excelrange;
    erg:= ExcelWorksheet1.Range['A1','F10'].Find(
                 'Personal',
                 emptyparam {ExcelWorksheet1.Cells.Item[Arow,Acol], },
                 xlValues,
                 xlWhole,
                 xlByRows,
                 xlNext,
                 false,
                 false,
                 EmptyParam);
     if erg<>NIL then
       begin
         Memo1.Lines.Add('juhu');
         Memo1.Lines.Add(inttostr(erg.Column)+'/'+inttostr(erg.Row));
       end
      else
         Memo1.Lines.Add('nix gefunden');

dann mal das ganze xl... durch emptyparam zu ersetzen, an was es dann wirklich liegt und wo eine Angabe zwingend erforderlich ist.

Gruß Frank