Print #1 kullanimi hakkinda bir sorun

[korfez]

Arkadaslar,
Asagidaki kodu calistirdigimda Sayfa1'de A1'den A10'a kadar yer alan veriler Deneme.txt isimli bir dosyaya aktariliyor. Sorun su ki; eger hucreler sayi iceriyorsa bir bosluk vererek Deneme.txt'ye yaziyor. Yani;

ali
veli
200
ayse
100
mehmet

gibi.
Sayilarda neden bir bosluk verdigini anlamadim. Cesitli denemeler yaptim ama bunun onune gecemedim. Yardimlariniz icin simdiden tesekkur ederim...

Kod:

Open "C:\Deneme.txt" For Output As #1
For Each hucre In Worksheets("Sayfa1").Range("A1:A10")
Print #1, hucre
Next hucre
Close #1

 

[veyselemre]

Print #1, Trim(hucre)
Şeklinde deneyin.

 

[korfez]

tesekkurler veyselemre,
istedigim buydu.