Excele SIFIR la başlayan numerik verileri TEXT olarak yazmak

[asking]

Merhabalar,

Delphi içinden bazı verileri beş haneye tamamlayarak excele yazdırmam gerekiyor.
Beş haneye tamamlamak için başlarına sıfır eklemem lazım, mesela veriler şöyle;

34546
03536
00449

gibi

Fakat excel bu verileri yazdırdığım zaman numerik değerlerin başındaki SIFIRLARI otomatik olarak siliyor.
Columns[1].NumberFormat:='@'; veya Columns[1].NumberFormat:=''; veya
Cells[1,1].NumberFormat:='@'; veya Cells[1,1].NumberFormat:='';

olarak da denediğim halde baştaki sıfırları siliyor. Sıfırlar kalacak şekilde ve excelde "yeşil uyarı vermeyecek şekilde (burası metin olarak tanımlanmıştır (fakat numerik değer girmişsin der gibi her hücrenin üst sağ kösesine uyarı işareti koyuyor)) nasıl yapabilirim?

Teşekkür ederim

[conari]

başına tek tırnak ekle '
'00032 şeklinde

[conari]

başına tek tırnak ekle '
'00032 şeklinde

not : o yeşil göstergenin gözükmemesini istiyorsan excel seçenekleri Hata Denetimi kısmından
sayı metin olarak saklansın işaretini kaldır.
VBA kodunuda delphi ye dönüştürerek yapabilirsin.

Kod: Tümünü seç

 Application.ErrorCheckingOptions.NumberAsText = True
 Application.ErrorCheckingOptions.NumberAsText = False

[asking]

Çok teşekkür ederim...
Pek makbule geçti, çözemiyordum.