Such Dir was aus:
Delphi-Quellcode:
(*
if forcestring then
for j := 0 to sg.colcount-1 do
// excel.activesheet.cells(1,j+1).EntireColumn.NumberFormat:='@';
// excel.activesheet.EntireColumn.Cells(1,2).NumberFormat:= '@';
// excel.activesheet.cells(1,j+1).NumberFormat:='@';
*)
if forcestring then begin
excel.activesheet.Cells.NumberFormat := '@';
end;
Das sind meine Versuche Excel zu Strings zu Überreden, Einfach mal das vorhandene Format auslesen?
Gruß
K-H