• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excel`den txt`ye spesifik aktarim

Katılım
29 Aralık 2008
Mesajlar
6
Excel Vers. ve Dili
excel 2003
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.
 
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.
 

Ekli dosyalar

Dostlar lütfen yardimlarinizi bekliyorum. Sizin icin mutlaka cok basit bir seydir. simdiden sagolun.
 
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
 
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
 
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
 
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.)

Kod:
dosyaadi = ThisWorkbook.Path & "\" & [h2] & ".txt"
 
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?

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