Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[p80286]

(kommt mir in Teilen bekannt vor??)
a) Du solltest "Excel" definieren:

Delphi-Quellcode:

Excel : variant;

b) Excel zählt von 1..Col.Count wenn Du nicht die letzte Spalte/Zeile ignorieren willst, solltest Du das korrigieren.
c) Ich bin mir nicht mehr sicher, aber es sollte wohl

Delphi-Quellcode:

Excel.activworkbook.

heißen?
d) Du solltest Dein Stringgrid an die Größe des Excel-Sheets anpassen.

Das ist, was ich auf die Schnelle gesehen habe.

Gruß
K-H

P.S.
Polydrow ?

[zeina]

ich habe ein feld text und vorhandener excel datei.meine ziel ist :wenn ich etwas in edit feld schreiben,soll mein program danach in excel datei suchen und mir eine z.b (showmessage) liefern

[zeina]

Zitat:

Zitat von p80286 (Beitrag 1408624)

(kommt mir in Teilen bekannt vor??)
a) Du solltest "Excel" definieren:

Delphi-Quellcode:

Excel : variant;

b) Excel zählt von 1..Col.Count wenn Du nicht die letzte Spalte/Zeile ignorieren willst, solltest Du das korrigieren.
c) Ich bin mir nicht mehr sicher, aber es sollte wohl

Delphi-Quellcode:

Excel.activworkbook.

heißen?
d) Du solltest Dein Stringgrid an die Größe des Excel-Sheets anpassen.

Das ist, was ich auf die Schnelle gesehen habe.

Gruß
K-H

P.S.
Polydrow ?

hi,
ich habe Excel : variant; als global definiert

[KodeZwerg]

Zitat:

Zitat von Redeemer (Beitrag 1408590)

Da hilft dem Kodezwerg sein Wörterbuch "Bilder - Deutsch / Deutsch - Bilder" auch nicht, wenn du unkommentierten Code postest...

Danke für den Lacher ^_^


Dieser Schnippsel könnte Dir helfen:

Delphi-Quellcode:

oExcel.Cells.Find('Suchbegriff', oExcel.Cells.Item[1,1], xlValues, xlWhole, xlByColumns, xlNext, False, False);

[zeina]

Zitat:

Zitat von KodeZwerg (Beitrag 1408682)

Zitat:

Zitat von Redeemer (Beitrag 1408590)

Da hilft dem Kodezwerg sein Wörterbuch "Bilder - Deutsch / Deutsch - Bilder" auch nicht, wenn du unkommentierten Code postest...

Danke für den Lacher ^_^


Dieser Schnippsel könnte Dir helfen:

Delphi-Quellcode:

oExcel.Cells.Find('Suchbegriff', oExcel.Cells.Item[1,1], xlValues, xlWhole, xlByColumns, xlNext, False, False);

Hi,
was sind: (xlValues, xlWhole, xlByColumns, xlNext) bitte???

[KodeZwerg]

Zitat:

Zitat von zeina (Beitrag 1408708)

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:

Zitat von zeina (Beitrag 1408738)

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.

[himitsu]

Zitat:

Zitat von zeina (Beitrag 1408708)

was sind: (xlValues, xlWhole, xlByColumns, xlNext) bitte???

Eigentlich recht einfach zu verstehen.

xlValues: Bei berechneten Feldern soll im Ergebnis und nicht in der Formel gesucht werden

xlPart/xlWhole: ist sowas wie das "ganze Wörter" beim Suchen in Texteditoren (nur wenn ganze Zelle oder wenn Teil von Zelle)

xlNext: vorwärs oder rückwärs suchen, also vor oder nach der aktuellen Zelle

https://msdn.microsoft.com/en-us/vba...meration-excel [edit] die DP kürzt sehr optimal ... ist alles was Anderes, auch wenn es nicht so aussieht :stupid:
https://msdn.microsoft.com/en-us/vba...meration-excel
https://msdn.microsoft.com/en-us/vba...meration-excel
https://msdn.microsoft.com/en-us/vba...meration-excel
...

[Delphi.Narium]

Die gleichen Links (oder sind es dieselben?) in etwas "übersetzter" Form:
xllookat
xlsearchorder
xlsearchdirection
xlfindlookin