Hücre içindeki verileri export etme

[ozgurcelik]

Merhabalar,

Bir excel belgem var. Belgede şu bilgiler var. A sütunu belge ismi. B sütunu belge içeriği. B sütununda yaklaşık 500 kelimelik bir metin var. Bu şekilde 50 satırlık bir veri setim var. Şunu yapmaya çalışıyorum. B sütunundaki her hücreyi plain txt olarak export etsin ve belge ismine A sütununda yer alan verinin ismini versin. Bunu nasıl yapabilirim? Excel dili İngilizce. Yardım veya yönlendirmeniz için şimdiden teşekkür ederim.

 

[bmutlu966]

Sub TxtAktar()

sonsat = [A65000].End(3).Row

For t = 2 To sonsat
    Open ThisWorkbook.Path & "\" & Cells(t, "A") & ".txt" For Output As #1
        Print #1, Cells(t, "B")
    Close
Next

MsgBox "Txt Dosyaları Oluşturuldu."

End Sub

 

[bmutlu966]

Dosyanızı Buradan indirebilirsiniz.
https://dosya.co/n0k35151oumz/Text_dosyası_olustur.xlsm.html

 

[ozgurcelik]

Dosyanızı Buradan indirebilirsiniz.
https://dosya.co/n0k35151oumz/Text_dosyası_olustur.xlsm.html

Çok teşekkür ederim zaman ayırdığım kodu yazdığınız için. Çok işime yarayacak.