Delphi-Quellcode:
excel.activesheet.cells(1,j+1).EntireColumn.NumberFormat:='@';
excel.activesheet.EntireColumn.Cells(1,2).NumberFormat:= '@';
excel.activesheet.cells(1,j+1).NumberFormat:='@';
excel.activesheet.Cells.NumberFormat := '@';
Es gibt mehrere Möglichkeiten, probier's mal aus.
Gruß
K-H