Xlsm Dosyasını Farklı Kaydetme

[kadir78]

xlsm uzantılı bir dosyayı farklı kaydederek xlsx yapma imkanı varmıdır.
Macro kodlarıyla buton yardımıyla yapılabilirmi.

Not : Farklı kaydedilen xlsx dosyasında makro kodlarına ihtiyaç yok.

 

[Saban Sertkaya]

Deneyiniz. Kodlar içindeki dosya yollarını kendi PC'nize göre düzeltiniz. 1 tanesinde kırmızı renk ile belirttim.

Sub DirektKaydet()
    ChDir "[COLOR="Red"]C:\Users\Selam\Masaüstü[/COLOR]"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="[COLOR="red"]C:\Users\Selam\Masaüstü[/COLOR]\Kitap1.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Sub İsmi_Hücreden_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & [A1] & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Sub İsmi_TarihveSaatten_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & Date & " " & Format(Time, "hh-mm") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Not : 1.kod makro kaydet yöntemi ile oluşturulmuş, devamında sadece kitap ismi değiştirilerek diğer 2 kod oluşturulmuştur.

 

[kadir78]

Teşekkürler

 

[baydeniro]

Deneyiniz. Kodlar içindeki dosya yollarını kendi PC'nize göre düzeltiniz. 1 tanesinde kırmızı renk ile belirttim.

Sub DirektKaydet()
    ChDir "[COLOR="Red"]C:\Users\Selam\Masaüstü[/COLOR]"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="[COLOR="red"]C:\Users\Selam\Masaüstü[/COLOR]\Kitap1.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Sub İsmi_Hücreden_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & [A1] & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Sub İsmi_TarihveSaatten_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & Date & " " & Format(Time, "hh-mm") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Not : 1.kod makro kaydet yöntemi ile oluşturulmuş, devamında sadece kitap ismi değiştirilerek diğer 2 kod oluşturulmuştur.

saban20152015 üstadım yardımların için teşekkürler. Acaba Sayfayı PDF olarak kaydederken dosyanın ".xlsx" veya ".xlsm" uzantısını kaydedilecek dosya adından çıkarmak mümkün müdür acaba ?