Делаю экспорт в Excel, допустим
При записи текста, содержащего одни цифры, Excel пытается его преобразовать в число. Чтобы избажать такой "помощи" со стороны Excel'я, перед записью в ячейку установите в свойство NumberFormat текстовый формат или добавьте перед текстом символ апострофа "'" (код символа 39).
Delphi:
S := '000069987'; // установим текстовый формат перед записью в ячейку
with ASheet.Range['A1', EmptyParam] do begin
NumberFormat := '@'; Formula := S; end; // или добавим перед текстом апостроф - результат тот же и даже быстрее работает
// так как не приходится изменять свойство NumberFormat
ASheet.Range['A2', EmptyParam].Formula := #39 + S;
