Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[p80286]

Zitat von zeina:

ich möchte zu eine Adresse und koordinaten erreichen ,ohn die Excel Datei zu öffnen.

Das geht nicht!
Wenn Du an die Daten kommen willst, mußt Du die Datei öffnen.

Wenn Du Excel installiert hast, dann ist OLE eine Möglichkeit.
Ein Beispiel gibt es hier.
(Gib mal in der Suchfunktin OLE Excel ein!)

Falls Deutsch nicht Deine Muttersprache ist, vielleicht geht es besser in Englisch?

Gruß
K-H

[hoika]

Hallo,
falls es etwas kosten kann, bei TMS gibt es passende Komponenten.
Die funktionieren auch ohne ein installiertes Excel.

Und nein, auch dort muss die Excel-Datei geöffnet werden (von der jeweiligen Komponente).

[KodeZwerg]

Oder spreche mit Bildern. Das gesagte in einen vernünftigen Kontext zu bringen ist mehr als schwer.

[zeina]

HaLLO;
das ist mein code.Ich hätte gerne eine (search function oder procedure),in der man die Excel-Datei nach einer bestimmten string (edit feld) durchsuchen könnte.

Code:

procedure TForm1.Button2Click(Sender: TObject);

var
     Workbook, Filename: OleVariant;
     OpenDialog: TOpenDialog;
     x,y:integer;
     maxcol,maxRow:integer;

   begin
     if OpenDialog.Execute then
     begin
       try
         excel := CreateOleObject('Excel.Application');
       except
         ShowMessage('Excel konnte nicht gestartet werden !');
       end;
       excel.workbooks.Open('C:\Users\qatrangi\Desktop\OSM neu\Mappe1.xlsx');
       excel.visible := true; { für die testphase sinnvoll }
       excel.Sheets[1].select;
       maxcol := excel.columns.count;
       maxRow := excel.Rows.count;

       for x := 1 to maxcol - 1 do
       begin
         for y := 1 to maxRow - 1 do
         begin
           if excel.cells[y, x].Value = (Edit1.Text) then
           begin
              excel.cells[y,x].select;
               polydrow(edit1.text);
               StringGrid1.Cells [x-1,y-1]:=excel.Cells[y,x].Value ;

           end;
         end;
       end;
     end;

   end;

[Redeemer]

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

[p80286]

(kommt mir in Teilen bekannt vor??)
a) Du solltest "Excel" definieren: 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 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 von p80286:

(kommt mir in Teilen bekannt vor??)
a) Du solltest "Excel" definieren: 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 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 von Redeemer:

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:
oExcel.Cells.Find('Suchbegriff', oExcel.Cells.Item[1,1], xlValues, xlWhole, xlByColumns, xlNext, False, False);

[zeina]

Zitat von KodeZwerg:

Zitat von Redeemer:

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:
oExcel.Cells.Find('Suchbegriff', oExcel.Cells.Item[1,1], xlValues, xlWhole, xlByColumns, xlNext, False, False);

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