Hallo, Übersicht.
Dies ist Patlatus.
Ich benutze Delphi XE2.
Ich verwende Standard-Komponenten TADOQuery und TADOTable aus Reiter "dbGo" und folgenden Code funktioniert gut für mich
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
ExportRecordsetToMSExcel('D:\x.xls', ADOQuery1.Recordset );
end;
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
ExportRecordsetToMSExcel('D:\x.xls', ADOTable1.Recordset );
end;
ADOTable1 und ADOQuery1 sind Standard-Komponenten TADOTable und TADOQuery.
So, das funktioniert für mich.
Bitte versuchen Sie es mit Standardkomponenten und uns sagen, ob das funktioniert für Sie.