Exceldeki yazıları not defteri olarak kayıt etme

[kaan147]

Merhaba arkadaşlar,
Excel dosyamda A sütununda bulunan kelimeleri ayrı ayrı not defteri ismi olarak nasıl kayıt edebilirim?
Örnek verecek olursam şu şekilde kelimeler var alt alta
kedi
köpek
su aygırı
at

gibi gibi bu şekilde uzayıp gidiyor. Bunları not defteri olarak kaydetmem gerekli yani şu şekilde
kedi.txt
köpek.txt
gibi. Umarım anlatabilmişimdir. Bu şekilde 10bin kadar kelime olduğu için hepsini tek tek açıp kayıt etmem çok zor. Teşekkür ederim.

 

[ÖmerBey]

Aklıma ilk bu geldi. Deneyiniz...
Yol kısmını kendinize göre değiştiriniz.

Sub kod()
yol = "[COLOR="Red"]D:\Text Dosyaları\[/COLOR]"
For a = 1 To Range("A65500").End(3).Row
    Open yol & Cells(a, "A").Text & ".txt" For Output As #1
    Close #1
Next
End Sub

 

[kaan147]

Aklıma ilk bu geldi. Deneyiniz...
Yol kısmını kendinize göre değiştiriniz.

Sub kod()
yol = "[COLOR="Red"]D:\Text Dosyaları\[/COLOR]"
For a = 1 To Range("A65500").End(3).Row
    Open yol & Cells(a, "A").Text & ".txt" For Output As #1
    Close #1
Next
End Sub

çok teşekkür ederim hocam tam istediğim şekilde oldu.