Delphi-Quellcode:
if forcestring then
excel.Activesheet.Cells.NumberFormat := '@';
Das funktioniert für alle Felder,
eine andere Möglichkeit wäre
.Cells(x,y):=''''+MeineDaten;
oder
.Cells(x,y):='"'+MeineDaten;
Hierbei hat Excel aber schon mal Schluckauf bekommen, sprich, doch wieder falsch formatiert.
Gruß
K-H
P.S. ist nicht auf meinem Mist gewachsen, da hat es vor 2(?)Jahren schon einmal einen Thread zu gegeben.