excel`den txt`ye spesifik aktarim

[magaraadami]

Merhaba arkadaslar excel ile pek iyi anlasamadigim icin hangi konuya koymam gerektigini bilmiyorum. eger sorumun yeri yanlis ise simdiden kusuruma bakmayin.
sorum su:



elimde 3 sütundan olusan bir excel dosyasi var.
Excel dosyasindaki verileri, txt dosyasina her verinin arasinda "|" isareti olacak sekilde txt dosyasina aktarmak istiyorum.

word1|word2|word3
word4|word5|word6
word7|word8|word9
Bunu nasil yapabilirim.
yardimci olan arkadaslara simdiden cok tesekkür ederim.

 

[hamitcan]

Dosya ekleyin.

 

[magaraadami]

Dosya ekleyin.

Merhaba ornek dosyayi ekte gönderiyorum. Yapmak istedigim 3 sutunlu excel dosyasindan formati txt dosyasininin icindeki gibi olacak bicimde txt`ye aktarmak. Sizler icin mutlaka cok kolay bir cözümü vardir. Fakat benim gibi excel`i yilda bir kullanan birisi icin baya karmasik görünüyor.
Simdiden cok sagolun. Iyi calismalar.

 

[magaraadami]

Dostlar lütfen yardimlarinizi bekliyorum. Sizin icin mutlaka cok basit bir seydir. simdiden sagolun.

 

[halit3]

bu kodu denermisiniz.

Sub aktar()
dosyaadi = ThisWorkbook.Path & "\kayit.txt"
Open dosyaadi For Append As #1
For i = 1 To [a65536].End(3).Row
Print #1, Cells(i, 1) & Chr$(9) & Cells(i, 2) & Chr$(9) & Cells(i, 3)
Next
MsgBox "aktarma işi tamamlandı"
Close #1
End Sub

 

[halit3]

veya bu kodu

Sub aktar()
dosyaadi = ThisWorkbook.Path & "\kayit.txt"
Open dosyaadi For Output As #1
For i = 2 To [a65536].End(3).Row
Print #1, Cells(i, 1) & "|" & Cells(i, 2) & "|" & Cells(i, 3)
Next
MsgBox "aktarma işi tamamlandı"
Close #1
End Sub

 

[muygun]

Merhaba;
Bir örnekte benden.
Not: Kodlar alıntıdır.
İyi çalışmalar.

 

[magaraadami]

bu kodu denermisiniz.

Halit bey cok tesekkur ederim. Istedigim seydi.

 

[magaraadami]

Merhaba;
Bir örnekte benden.
Not: Kodlar alıntıdır.
İyi çalışmalar.

Gönderdigin cözüm icin Tesekkür ederim Muygun. Zahmet verdim. sagolun.

 

[halit3]

Halit bey cok tesekkur ederim. Istedigim seydi.

iyi çalışmalar

 

[murtazax]

Merhabalar

Bu verdiğiniz kodlara

1-kayit : bunun yerine h2 hücresinde ki değeri alıp o isimle kaydetsin.
( h2 hücresine =bugün() komutunu girip her gün için ayrı kayıt tutmasını sağlamak istiyorum.)

2-bu kayıt işlemini hiç bir tuşa ya da butona basmadan saat 11:30:00 olunca otomatik kaydetsin.

şeklinde değişiklik yapmamız mümkün müdür?

Sub aktar()
dosyaadi = ThisWorkbook.Path & "\kayit.txt"
Open dosyaadi For Append As #1
For i = 1 To [a65536].End(3).Row
Print #1, Cells(i, 1) & Chr$(9) & Cells(i, 2) & Chr$(9) & Cells(i, 3)
Next
MsgBox "aktarma işi tamamlandı"
Close #1
End Sub

 

[hamitcan]

Merhabalar

Bu verdiğiniz kodlara

1-kayit : bunun yerine h2 hücresinde ki değeri alıp o isimle kaydetsin.( h2 hücresine =bugün() komutunu girip her gün için ayrı kayıt tutmasını sağlamak istiyorum.)

dosyaadi = ThisWorkbook.Path & "\" & [h2] & ".txt"

 

[hamitcan]

2-bu kayıt işlemini hiç bir tuşa ya da butona basmadan saat 11:30:00 olunca otomatik kaydetsin.

şeklinde değişiklik yapmamız mümkün müdür?

Sub auto_open()
    Application.OnTime TimeValue("11:30:00"), "aktar"
end sub