Seçtiğim dizine dosya kaydetme

[cimatron]

merhaba,

arkadaşlar aşağıdaki konuyu bana anlatabilcek olan varmı excel içerisindeki yazıları farklı kaydet ile *.txt olarak kaydetmek istiyorum bir türlü beceremedim bunun mantığı nedir?

Sub dlname()

Sheets("DLNAME DİZİNİ").Select
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Klasörü Seçin", 50, &H0)
kaynak = Klasor.SELF.Path 'Klasor.Items.Item.Path
kaynak.ActiveWorkbook.SaveAs Filename:= _
"C:\Users\xxx\Desktop\KLASÖR YAPISI_v4.txt", FileFormat:=xlUnicodeText, _
CreateBackup:=False

End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub TXT_KAYDET()
    Dim Klasor As Object, Kaynak As String
    Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Kaynak Klasörü Seçin", 50, &H0)
    If Not Klasor Is Nothing Then
        Kaynak = Klasor.Self.Path
        ActiveWorkbook.SaveAs Filename:=Kaynak & "\Dosya_Adı.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
        MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
    Else
        MsgBox "İşleminiz iptal edilmiştir.", vbExclamation
    End If
End Sub

 

[cimatron]

çok teşekkürler bunu da sayenizde öğrenmiş olduk.