Farklı Kaydet VBA kodu hk.

[petsiye]

Merhaba,

Forumda baktım ama bulamadım. Hazırlamış olduğum excel dosyasını, VBA kodu yardımıyla, masaüstüne o anki tarihli dosya adı ile "ikili çalışma kitabı" formatında kaydetmek istiyorum. ( Örneğin;16.02.2023 adıyla Masaüstüne kaydedecek )

Cevaplarınız için şimdiden teşekkür ederim.

 

[klop01]

Merhaba,
Dosya adını günün tarihi olarak belirler ve masaüstüne ikili çalışma kitabı olarak kaydeder.

Sub DosyaKaydet()
    Dim DosyaAdi As String
    DosyaAdi = Format(Date, "dd.mm.yyyy") & ".xlsb"
    ThisWorkbook.SaveAs Environ$("USERPROFILE") & "\Desktop\" & DosyaAdi, FileFormat:=xlExcel12
End Sub

Dosya adını 16.02.2023 olarak belirler ve masaüstüne ikili çalışma kitabı olarak kaydeder.

Sub DosyaKaydet()
    Dim DosyaAdi As String
    DosyaAdi = "16.02.2023.xlsb"
    ThisWorkbook.SaveAs Environ$("USERPROFILE") & "\Desktop\" & DosyaAdi, FileFormat:=xlExcel12
End Sub

 

[petsiye]

Her 2 kod içinde ayrı ayrı teşekkür ederim