Mit ADO eine Exceltabelle (12.0) auslesen?

[SearchBot]

Hallo

ich habe kein Excel bzw. nur den Excelviewer. Ich habe aber das ACE-Dings installiert und bekomme auch mit folgendem Code einen Connect zur Datei:

Ich habe dabei diese Quelle als Grundlage genommen:
http://www.delphipraxis.net/128818-e...lte-fehlt.html

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var TabSL:TStringList;
    fdb,sTableName,s: string;
    iMaxCol,iMaxRows,iCol,iRow:integer;
    grid:TSortGRid;
begin
try if ADOConArt.Connected then ADOConArt.Close; except end;

  fDB:='C:\Test\Excel\Tabelle.xlsx';
  
  if uppercase(extractFileExt(fDB))='.XLSX' then
  s:= 'Provider=Microsoft.ACE.OLEDB.12.0; ' + //xlsx
      'Extended Properties=Excel 12.0;'
  else
  if uppercase(extractFileExt(fDB))='.XLS' then
  s:= 'Provider=Microsoft.Jet.OLEDB.4.0; ' + //xls
      'Extended Properties=Excel 8.0;'
  else s:='';

  if s='' then
   showmessage('Datei wird nicht unterstützt...')
  else begin
  ADOConArt.ConnectionString := s+'Data Source='+ fDB +'; Persist Security Info=False';
  ADOConArt.Open;

Bis hier geht es und die "Leitung steht".

Delphi-Quellcode:

  if ADOConArt.Connected then
    try
      TabSL:=TStringList.Create;
      Grid:=TSortGrid.Create(Form1);
      ADOConArt.GetTableNames(TabSL, False);
      for iMaxCol := 0 to TabSL.Count-1 do
        if pos('$',TabSL[iMaxCol])>0 then begin
          sTableName:= TabSL[iMaxCol];
          break;
        end;
      ADODataSet1.CommandText:= 'SELECT * FROM [' + sTableName + ']';
      ADODataSet1.Open;

Ob das geklappt hat, bin ich mir nicht mehr so sicher...

Delphi-Quellcode:

      // Zuweisen der Tabellenzeilen
     iMaxRows := ADODataSet1.RecordCount;

Hier hängt es dann und kehrt nicht zurück.

Und so sollte es weitergehen, ...

Delphi-Quellcode:

     Grid.RowCount:= iMaxRows;
     
      // Anzahl der Spalten ermitteln
      iMaxCol := ADODataSet1.FieldCount;
      Grid.ColCount:=iMaxCol;
      // Auf den ersten Datensatz springen
      ADODataSet1.First;

      // Dataset auslesen
      for iRow := 0 to iMaxRows-1 do
        begin
          for iCol := 0 to iMaxCol-1 do
            begin
              grid.Cells[iCol,iRow] := ADODataSet1.Fields[(iCol)].AsString
            end;
          ADODataSet1.Next;
        end;
      ADODataSet1.Close;
      Grid.SaveToFile(fDB+'.csv',#9);
    finally
     TabSL.Free;
     Grid.Free;
    end;
  ADOConArt.Close;

  end;
end;

1) Woran mag das liegen, daß ich das Blatt nicht auslesen kann?
2) Ich habe immer das Stringgrid-Verständnis, schön mit den Cells und so. ADODataSet scheint völlig anders aufgebaut zu sein.
3) Ich habe einiges über den Zugriff und so gelesen - "Records" sind Rows und "Fields" sind Columns? Irgendwie scheine ich bisher nie bis zur "Rasterebene" vorgedrungen zu sein...
4) Eigentlich will ich "nur" aus einer KillerTabelle (knapp 20MB, 10k Zeilen, 200 Spalten - die OpenOfficeCalc nicht einlesen kann und dabei hängen bleibt; ExcelViewer aber kein Problem damit hat) 2 Spalten auslesen und in eine Textdatei abspeichern; ergänzend kleine Tabellen komplett auslesen. Wegen diesem "bisschen" möchte ich mir eigentlich nicht teure Komponenten kaufen müssen, die Excel optimal unterstützen...

Bitte helft mir