Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[KodeZwerg]

Zitat von zeina:

was sind ... bitte???

Am besten diesen Link durchlesen, bei meinem Schnippsel handelt es sich um OLE abfragen mit installiertem/laufenden Excel, Du wolltest ja in Delphi die Datei nicht öffnen, deswegen mein OLE Vorschlag.
Hier geht's zum Link.

[zeina]

Dieser Schnippsel functioniert,aber es sucht nicht in alle columns.

wenn ich es für maxcol=2 und maxrow=2 gemacht
er hat mir vier mal showmessage gezeigt??

könnte jemand mir hilfen,wo meine Fehler ist??

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
  var
    WorkBook, sheet: OleVariant;
    X, Y: Integer;
    maxcol, maxRow: Integer;
    openDialog: TOpenDialog;
  begin
    if openDialog.Execute then
    begin
      try
        excel := CreateOleObject('Excel.Application');
      except
        ShowMessage('Excel konnte nicht gestartet werden !');
        exit;
      end;
      excel.Visible := true;{ für die testphase sinnvoll }
      excel.workbooks.open('C:\Users\qatrangi\Desktop\OSM neu\Marker1.xlsx');
      excel.activeworkbook.sheets[1].activate;
      maxcol := excel.columns.count;
      maxRow := excel.rows.count;
      for X := 1 to maxcol do
         begin
        for Y := 1 to maxRow do
        begin
          if edit1.text = excel.cells.Item[y, x].Value  then
            begin
            excel.Cells.Find(edit1.text,excel.Cells.Item[y,x], xlValues, xlWhole, xlByColumns, xlNext, False, False);
            excel.cells[y,x].select;
            showmessage('yes') ;
            exit;
            //polydrow(Edit1.Text);
           // StringGrid1.cells[X - 1, Y - 1] := excel.cells.Item[X, Y].Value
             end
           else  showmessage('no');
          end;
         end;
      excel.workbooks.close;
      excel := Unassigned;
    end;
  end;

[Jasocul]

Du hast 2 Spalten und 2 Zeilen.
2 x 2 = 4

Die gehst alle 4 Felder in excel durch.
Wenn du einen Treffer hast, machst du ein Showmessage('yes'). Hast du keinen Treffer, machst du Showmessage('no').
Bei 4 Feldern machst du dann 4 mal Showmessage.

Das Programm macht also genau das, was du programmiert hast. Demnach liegt kein Fehler vor.

Zitat von zeina:

könnte jemand mir hilfen,wo meine Fehler ist??

Wie soll man da helfen, wenn es das macht, was du programmiert hast?

Vielleicht solltest du mal den Debugger in Delphi verwenden, damit du siehst, was in deinem Programm passiert.