Auf *.xls zugreifen, ohne Excelinstallation

[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