Hallo,
ich hab eine Funktion geschrieben, die Inhalte einer
ADO-
Query nach Excel exportiert via
OLE usw. Beispiele dafür hab ich hier einige gefunden und mich daran orientiert. Knackstelle ist beim Schreiben in eine Excel-Zelle (sinngemäß):
Code:
while not
query.EOF do
begin
for j=0 to
query.Fields.Count-1 do
Excel.Workbook.Worksheet.Cells[i+1,j+1].value=
query.Fields[j].AsString;
Inc(i);
query.Next;
end;
Problem ist das Excel diese Daten fröhlich umformatiert. Beispiel ein String mit Personalnummer 001234. Excel schneidet die führenden Nullen ab und interpretiert das als Zahl 1234.
Double oder Currency Werte bekommen in Excel amerikanische Zahlenformate (da wohl die Daten so in der
DB sind) usw. usw.
Hat jemand vllt. eine Funktion, die das abfängt und z.B. nach den Datentypen der
Query guckt und dann entsprechend irgendwie reagiert?