Çalışma Kitabını Tarih Atarak Yedekle - Microsoft Excel

Aktif çalışma kitabını, tarih bilgisinin de olduğu yeni bir isim oluşturduktan sonra bu isimle, ayrı bir dosya olarak kaydeden VBA kodudur.

Kod


Option Explicit

Sub DosyayiTarihAtarakYedekle()
    Dim zaman As Variant
    Dim isim  As String
    
    zaman = Application.Text(Now(), "yyyy-mm-dd--hh-mm-ss")
    isim = "Yedek--" & zaman & ".xlsm"
    ActiveWorkbook.SaveCopyAs isim
End Sub

Notlar

Yedek Dosyasının Uzantısı
Uzantıya dikkat edin. Dosyanın uzantısını koruyun. Aksi halde yedek dosyasını açılmaması, dosya bozuk şeklinde hata vermesi gibi durumlar söz konusu olabiliyor.
Kayıt Yapılan Yer
Bu kodda yedek dosyaları Belgeler klasörüne kaydediliyor.

Etiketler

microsoft excel excel vba dosya klasör işlemleri microsoft excel vba microsoft excel vba yedekleme işlemleri