Soru (Acil) Elimdeki Excel Veri Sayfasını Metin Sekmeyle Ayrılmış

[htsumer]

(Acil) Elimdeki Excel Veri Sayfasını Metin Sekmeyle Ayrılmış olarak masa üstüne kaydetmek istiyorum..Kaydederken txt günün tarihi adını alacak
Makro kaydet ile yapıorum ama makrtoyu kaydedemiyorum..

 

[htsumer]

Yukardaki sorumu düzeltiyorum.

Farklı Kaydedecek
C:\ebyn klasörüne önce "sablon isimli dosya açacak var ise hata vermeyecek.
Daha sonra açık sayfayı "sablon" klasörü içine Metin (Sekmeyle Ayrılmış) formatında kaydedecek ve kaydederken o günün tarihi adı ile kaydedecek..
Teşekkürler

 

[htsumer]

Hallettim başkasına faydası olsun diye ekliyorum

Sub Makro1()

    Klasor_Olustur
    ActiveWorkbook.SaveAs Filename:="C:\ebyn\sablon\" & Date & "_muhsgk_sablon.txt", FileFormat:= _
        xlText, CreateBackup:=False
        MsgBox " Dosyanız C:\ebyn\sablon\ Klasörü altına eklenmiştir."
End Sub

Sub Klasor_Olustur()

    Dim ds, _
        kls As String
        
    kls = "sablon"
    
    Set ds = CreateObject("Scripting.FileSystemObject")
    
    If ds.FolderExists("C:\" & kls) = False Then ds.CreateFolder "C:\" & kls
    
End Sub