Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[zeina]

Hi !

Ich möchte gerne ein Textfeld, in meinem Fall Edit1.Text, in die Zelle in eine Exceltabelle suchen. Wichtig hierbei ist, ich will keine neue Exceldatei erstellen, sondern einfach eine Vorlage (Zum Beispiel eine Rechnung) an der nach bestimmten name oder producte suchen

Geht das und wenn ja, kann mir jemand den Anstoß geben, wie es funktionieren könnte ?

[p80286]

Es gibt verschiedene Möglichkeiten, mit Hilfe von OLE falls auf dem Rechner Excel installiert ist, oder aber mit ODBC, oder mit Fremdkomponenten.
Oder Du exportierst den Inhalt z.B. in eine .CSV-Datei und liest diese dann in deinem Programm.

Was hast Du denn (schon).

Gruß
K-H

[ConnorMcLeod]

Zitat von zeina:

Ich möchte gerne ein Textfeld, in meinem Fall Edit1.Text, in die Zelle in eine Exceltabelle suchen.

Hi, ich möchte gerne ein Posting, in meinem Fall das Vorliegende, in die Gedanke in eine Ordnung bringen

[zeina]

auf meinem Rechner Excel installiert ist.
Ich habe eine vorgefertigte Excel Datei ,die Adressere und ihre kordinaten hat.
ich möchte zu eine Adresse und koordinaten erreichen ,ohn die Excel Datei zu öffnen.
Ich denke daran,dass es die adresse mit ihre kordinaten auf eine StringGird zeigt werden könnte.
wie kann man so machen???

[zeina]

Zitat von ConnorMcLeod:

Zitat von zeina:

Ich möchte gerne ein Textfeld, in meinem Fall Edit1.Text, in die Zelle in eine Exceltabelle suchen.

Hi, ich möchte gerne ein Posting, in meinem Fall das Vorliegende, in die Gedanke in eine Ordnung bringen

[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...