text dosyasına kayıt yapmak

[ark123]

Merhaba arkadaşlar,
Tarım bakanlığı İl Müdürlüğünde görevliyim. Döner Sermaye işletmesinde kesilen makbuzlar için excel uygulaması yaptım. Webden alınan kalemleri kod numaralı ile hücreye çağırıyorum, sonra bunu otokopili makuza yazdırıyorum ve text dosyasına da kaydediyorum.

ÇKS DOSYA ÜCRETİ 2017 (10-50dk)​​ için kayıt yaptığımda text dosyasına ÇKS DOSYA ÜCRETİ 2017 (10-50dk)​​?? olarak kaydediyor. Yani ürün sonuna iki tane soru işareti ekliyor.

neden böyle yaptığını bulamadım.


Private Type kisi
adi As String * 30
TC As String * 11
koy As String * 30
tarih As String * 10
belgeno As String * 10
urun1 As String * 45
adet1 As String * 5
fiyat1 As Double
urun2 As String * 45
adet2 As String * 5
fiyat2 As Double
urun3 As String * 35
adet3 As String * 5
fiyat3 As Double
urun4 As String * 35
adet4 As String * 5
fiyat4 As Double
fiyatt As Double
aciklama As String * 30
SAAT As String * 5
boss As String * 149

End Type


Sub Dikdörtgen1_Tıklat()

Dim erT As kisi
yol = Sheets("VERİLER").Cells(12, 3) & ":\" & Sheets("VERİLER").Cells(13, 3) & "\"
Open yol & "BELGEKAYIT.txt" For Random As #1 Len = 500
sırano = (LOF(1) \ 500) + 2: If LOF(1) = 0 Then sırano = 1
' sırano = Sheets("VERİLER").Cells(4, 4) + 1
erT.adi = Sheets("ANA SAYFA").Cells(7, 6)
erT.TC = Sheets("ANA SAYFA").Cells(8, 6)
erT.koy = Sheets("ANA SAYFA").Cells(9, 6)
erT.tarih = Sheets("ANA SAYFA").Cells(21, 9)
erT.belgeno = Sheets("ANA SAYFA").Cells(3, 10) & "-" & Sheets("ANA SAYFA").Cells(4, 10)
erT.urun1 = Sheets("MAKBUZ").Cells(13, 2)
erT.urun2 = Sheets("ANA SAYFA").Cells(13, 7)
Sheets("ANA SAYFA").Cells(32, 1) = Sheets("ANA SAYFA").Cells(13, 7)
Sheets("ANA SAYFA").Cells(32, 2) = erT.urun1

erT.fiyat1 = Sheets("ANA SAYFA").Cells(13, 10)
'erT.urun2 = Sheets("ANA SAYFA").Cells(14, 7)
erT.fiyat2 = Sheets("ANA SAYFA").Cells(14, 10)
erT.urun3 = Sheets("ANA SAYFA").Cells(15, 7)
erT.fiyat3 = Sheets("ANA SAYFA").Cells(15, 10)
erT.urun4 = Sheets("ANA SAYFA").Cells(16, 7)
erT.fiyat4 = Sheets("ANA SAYFA").Cells(16, 10)
erT.fiyatt = Sheets("ANA SAYFA").Cells(17, 10)



Put #1, sırano, erT
end sub