MUHSGK İçin Exceli Txt olarak kaydetme

[htsumer]

Daha önce çalışan programım şimdi hata veriyor. Sebebi ne olabilir yada alternatif kod ilave edebilirmisiniz.

Makro Kodu:

Sub Makro1()
'
' Makro1 Makro
'

'
    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

Hata sayfası

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları kullanın.
"ebyn" klasörü olmadığı için hata veriyordu.

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

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

 

[htsumer]

Teşekkür ederim. ebyn klasörü var ama buda txt oluşturmadı

 

[Muzaffer Ali]

O zaman aşağıdaki kodu kullanın.

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 As Object, kls As String
    kls = "sablon"
    Set ds = CreateObject("Scripting.FileSystemObject")
    If ds.FolderExists("C:\ebyn\" & kls) = False Then ds.CreateFolder "C:\ebyn\" & kls
End Sub

 

[htsumer]

Teşekkür ederim bu oldu