Hi,

ich hab mit OpenOffice mir eine *.xls erstellt da die Datei später mit Excel weiterbearbeitbar sein soll.

Auf meinem PC hab ich kein Excel installiert. Die Frage ist jetzt nun. Kann ich, ohne eine Installation von Excel, mit Delphi auf meine *.xls Datei zugreifen und die Werte der Tabelle auslesen?

Ich hoffe, das Thema gibt es noch nicht. Hab zwar gesucht, aber nichts gefunden

Schau dir mal den 4 Beitrag an. klick

MfG
freak

Hatten wir grad heute schon hier. Über ADO sollte das klappen.

Ja, da gibts ne Möglichkeit. Steht sogar gerade noch auf der Startseite, ein paar Zeilen unter deinem Post
Daten aus Excel auslesen und in MySQL einfügen

Wobei du natürlich nicht zwangsweise in MySQL einfügen musst

//Edit
Mennö! Statt dem ewigen Zweiten, werd ich schon zum Dritten

Danke. Ich schau mal.

Ich hab nach "Excel Zugriff ohne Installation" gesucht und da hab ich nix gefunden *g*

Die Lösung aber nicht für jeden Einsatzweck optimal.
Solange du die Daten "nur" komplett und ReadOnly benötigst ist das OK.
Sonst würde ich anstatt der AdoTable lieber eine TAdoQuery verwenden und mit SQL drauf zugreifen.


Um mal bei dem Beispiel zu bleiben ...

zusammenfalten · markieren

Delphi-Quellcode:

// Opendialog öffnen und AdoConnection verbinden

      Adoconn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
        'Provider=Microsoft.Jet.OLEDB.4.0; ' +
        'Data Source=' + Opendialog.Filename + ';' +
        'Extended Properties=Excel 8.0; ' + //<< immer Excel 8.0 !!!
        'Persist Security Info=False';
      Adoconn.open;
      
      // Eine Combobox (xlsWorksheets mit den Arbeitsbereichsseiten der Excel Arbeitsmappe füllen

      xlsWorksheets.Enabled := Adoconn.Connected;
      if Adoconn.Connected then
      begin
        Adoconn.GetTableNames(xlsWorksheets.Items, true);
      end;

      // Wenn es mindestens eine Arbeitsbereichsseite gibt > Auswählen und Öffnen
      
      ...
       User die gewünschte Arbeitsbereichsseite wählen lassen
       ggf. automatisch xlsWorksheets.Items[0] verwenden, falls es nur eine Arbeitsbereichsseite gibt
      ...

      if xlsWorksheets.items.count =0 then
      begin
        Showmessage('In der gewählten Arbeitsmappe sind keine Arbeitsbereichsseiten verfügbar');
        exit;
      end
      else begin
         Tabelle:='['+xlsWorksheets.items[xlsWorksheets.itemindex] +']';
             // die eckigen Klammern sind nötig weil der Tabellenname Sonderzeichen enthält ("$")
         With AdoQueryXLS do
         begin
           close;
           Connection:=Adoconn;
           // Beispiel "Select"
           SQL.Text:='SELECT * FROM '+Tabelle+' WHERE Anrede like '''+'Herr'+'''';
           open;
         
           // Beispiel "Insert"
           SQL.Text:='INSERT INTO '+Tabelle+' (Vorname,Name) VALUES (''Paul'',''Testmann'')';
           execute;

           // Beispiel "Update"
           SQL.Text:='UPDATE '+Tabelle+' SET Anrede = '''+'Herr'+''' WHERE Vorname LIKE '''+'Paul'+'''';
           execute;
         end;
      end;

Mit SQL funktioniert das "Bearbeiten" der Excel Arbeitsseiten-Tabelle wesentlich stabiler.
Filtern ist mit SQL auch leichter als mit AdoTable.filter ...


Schöne Grüße,
Jens

Hi,

schön und gut das ganze, aber leider gibt es die ADO-Komponenten unter Delphi 5 Prof. nicht. Somit nutzt mir das gar nichts

Ich glaube da gibts was, hab mich jetzt aber nicht komplett durchgeklickt:
ADO in der MSDN

//Edit
Alternativ schau mal hier:
ADO+Delphi5 bei bildung.hessen.de

Jet kann doch XL nur dann anfassen, wenn XL auch installiert ist.

btw: Warum zum Geier wird XL Ständig mit einem DBMS oder XML verwechselt?

einen native Weg für die XLS-Bearbeitung gibt es über die VCL-SpreadSheet-Komponente von www.devExpress.com.
kostet aber etwas, läuft dafür auch under Kylix/Linux ..

thomas



@Robert:

Zitat:

Warum zum Geier wird XLS Ständig mit einem DBMS oder XML verwechselt?

da gebe ich Dir recht.... ; vielleicht erinnern die Zeilen und Spalten an eine Tabelle