Text dosyasına Formatlı yazım

[k0081]

Merhaba arkadaşlar;

aşağıda ki kod ile dosya verileri yazdırıyorum.., fakat istediğim formatta yapamadım..


olması gereken txt dosya formatını ekliyorum;

Ekli dosyayı görüntüle TXT OKU.xlsm
Ekli dosyayı görüntüle OLMASI GEREKEN FORMAT.txt

Private Sub CommandButton2_Click()
Satir = 1
Open "c:\deneme.txt" For Output As #1
Satir = Worksheets("sayfa1").Range("B3").CurrentRegion.Rows.Count
For i = 2 To Satir
Print #1, Cells(i, 1), "¶"; Cells(i, 2), "¶"; Cells(i, 3); "¶"; Cells(i, 4)
Next i
Close #1
End Sub

yardımcı arkadaşa şimdiden teşekkürler..
***********************************************
dosyanın içindeki veri alma kısmı hariç,, soru çözülmüştür..
veri alma : http://www.excel.web.tr/f48/text-dosyasyndan-veri-almak-t125385.html
***********************************************************

 

[Necdet]

Merhaba,

İstediğiniz formatı söylerseniz olay daha hızlı anlaşılır.

 

[k0081]

Merhaba,

İstediğiniz formatı söylerseniz olay daha hızlı anlaşılır.

Merhaba hocam;

Format olayını.., yani anabaşlıktaki bu soruyu çözdüm hocam.. Bir önceki mesajımda vermiş olduğum linkte "txt dosyasından veriler almak" ile ilgili kısım kaldı hocam..

Link:

http://www.excel.web.tr/f48/text-dosyasyndan-veri-almak-t125385.html