; İşareti İle Ayırıp TXT Dosyası Olarak Kaydetmek

[yorum.halil]

Arkadaşlar excel dosyasındaki bilgileri ; (NOKTALI VİRGÜL) işareti kullanarak txt dosyası olarak kaydetmek istiyoruz. Konu ile ilgili örnek dosya ektedir. İlginiz için şimdiden tşk. ederim.

 

[uzmanamele]

merhaba
ekteki dosya gibi bişey mi istediniz acaba?

 

[yorum.halil]

Kardeş örnek dosyada nasıl olmasını gerekiğini yazdım. txt dosyası olarak örnekteki gibi olmasını istiyorum.

dosya içeriği aşağıdaki gibi olacak

ali;kara;konya

kayıt ederken isim önemli değil ama txt dosyası olacak. Mesela liste.txt

 

[Zeki Gürsoy]

.

Sub TXT_Yazdir()
Dim i As Long
    Open ThisWorkbook.Path & "\Test.txt" For Output As #1
        
        For i = 1 To [a65000].End(3).Row
            Print #1, Cells(i, 1); ";"; Cells(i, 2); ";"; Cells(i, 3)
        Next
    
    Close #1
End Sub

 

[conari]

Sub aktar()
Dim i, sat As Integer
sat = [A65536].End(3).Row
Open "C:\aktarım.txt" For Output As #1
For i = 1 To sat
Print #1, Cells(i, 1), ";", Cells(i, 2), ";", Cells(i, 3)
Next i
Close
MsgBox " Aktarım yapıldı.", vbInformation, " Bilgilendirme"
End Sub

 

[yorum.halil]

Arkadaşlar tşk. ederim. sanırım oldu. Uzmanamele, conari, anemos elinize ve emeğinize sağlık....Allah Razı Olsun...