çalışma kitabı ismi ile masaüstüne dosya oluşturma

[farukuz]

ekte örnekte yer alan makroda masa üstüne metin belgesi oluşturuyor. masaüstüne oluşturulan metin belgesinin isminin çalışma kitabının ismiyle oluşturulması mümkün mü? (dosya ismi : ÇalışmaKitabıAdı_xxxx.txt şeklinde)

 

[İhsan Tank]

ekte örnekte yer alan makroda masa üstüne metin belgesi oluşturuyor. masaüstüne oluşturulan metin belgesinin isminin çalışma kitabının ismiyle oluşturulması mümkün mü? (dosya ismi : ÇalışmaKitabıAdı_xxxx.txt şeklinde)

Merhaba

Sub test()

    Open Environ("userprofile") & "\Desktop\" & ThisWorkbook.Name & "_sütun.txt" For Output As #1
        For Z = 1 To Sheets("sayfa1").[a65536].End(3).Row
            Print #1, Sheets("sayfa1").Cells(Z, "a")
        Next
    Close #1
End Sub

Bunu dener misiniz_?

 

[farukuz]

ihsan bey çok teşekkür ederim. tam istediğim gibi.

 

[İhsan Tank]

ihsan bey çok teşekkür ederim. tam istediğim gibi.

Rica ederim
:keyif: