Hücre değerine göre boş txt dosyası oluşturma

[tropique]

Merhaba,

Bir sayfada A2'den başalayıp aşağıya doğru son sütüna kadar hücrelerindeki değerlere göre isimleri belirlenen boş txt dosyaları oluşturmak mümkün müdür?

a1 - ankara   >>>>> c:\ankara.txt
a2 - istanbul >>>>> c:\istanbul.txt
a3 - izmir >>>>> c:\izmir.txt
...
a230 - roma >>>>> c:\roma.txt

gibi

Teşekkürler

 

[veyselemre]

Sub test()
    For Each elem In Range([a1], [a1].End(xlDown)).Value
        Open "c:\" & elem & ".txt" For Output As #1
        Close #1
    Next elem
End Sub

 

[tropique]

merhaba,
teşekkür ederim çalıştırınca şu hatayı aldım

Run-tim error '75'
PAth/file access error

 

[veyselemre]

c:\ dizinine yazma izniniz yoktur. Dizini değiştirin c:\deneme\ gibi

 

[tropique]

Teşekkür ederim veyslemre, dediğin gibi başka dizin denedim oldu. haftasonu internet erişimim kısıtlı olduğundan geç yazıyorum.
Allah razı olsun