Auf *.xls zugreifen, ohne Excelinstallation

[Die Muhkuh]

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

[freak4fun]

Schau dir mal den 4 Beitrag an. klick

MfG
freak

[Jelly]

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

[Thanatos81]

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

[Die Muhkuh]

Danke. Ich schau mal.

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

[jensw_2000]

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

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

[Die Muhkuh]

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

[Thanatos81]

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

[Robert_G]

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?

[merlin17]

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