- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,871
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
- Altın Üyelik Bitiş Tarihi
- 26-03-2020
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
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
***********************************************************
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
Kod:
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
***********************************************
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
***********************************************************
Son düzenleme: