txt yapma

[ustaoyuncu]

sayfa 2 deki tablodan a2-b2 verilerini txt dosyasının 1. satırına ve a3-b3 verilerini 2. satırına aralarına "," kayorak yazmasını istiyorum..

 

[korkut31]

kodu bir commandbuttonun click olayına yazınız...

Private Sub CommandButton1_Click()
Open "C:\Test.TXT" For Output As #1
Print #1, Cells(2, 1), ",", Cells(2, 2)
Print #1, Cells(3, 1), ",", Cells(3, 2)
Close
End Sub

umarım yardımcı olabilmişzdir.
iyi çalışmalr

 

[ustaoyuncu]

Sub txt()
Open "C:\sin\" & Year([c1]) & "\" & Format([b1], "mmmm") & "\" & Day([a1]) & ".txt" For Output As #1
Print #1, Cells(2, 1), ",", Cells(2, 2)
Print #1, Cells(3, 1), ",", Cells(3, 2)
Close
End Sub

bu şekilde yazdım kodu. fakat sadece "," yazıyor

 

[korkut31]

hımm

hücreleriniz boştur.. kodda belirtiğiniz hücrelerin dolu olmadıgına emin misiniz ?
dizinleriniz mevcut olmalı birde o dizinleri yaratmaz bu kod dizin bulunamadı der..

 

[ustaoyuncu]

Sub txt()
Open "C:\sin\" & Year([c1]) & "\" & Format([b1], "mmmm") & "\" & Day([a1]) & ".txt" For Output As #1
Print #1, Sheets("Sayfa2").Cells(2, 1), ",", Sheets("Sayfa2").Cells(2, 2)
Print #1, Sheets("Sayfa2").Cells(3, 1), ",", Sheets("Sayfa2").Cells(3, 2)
Close
End Sub
şeklinde yazdım
txt dosyasına
120 , 130
130 , 140
şeklinde yazdı. biraz daha uğraşmam lazım sağol