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
