Aktif dosyanın yedeğini almak.

[Orion1]

Merhabalar.
Aktif dosyanın istediğm zaman bir yedeğini nasıl alabilirim?

 

[ozgretmen]

Yanlış anlamadıysam eğer şu kod işinize yarayabilir.iyi çalışmalar..

Sub yedek()
Dim StDatei As String
    Dim StPhad As String
    StDatei = ThisWorkbook.Name
    StPhad = ThisWorkbook.Path
    Dim Fso As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FileExists(StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei) Then
        Kill StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
    End If
    ActiveWorkbook.SaveCopyAs Filename:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
End Sub

 

[Orion1]

Sayın Özgretmen teşekkür edrim.
Ben bir kaç ilave yaparak dosya uzantısını xlk olacak şekilde yedeğni çıran kodu yazdım.

Sub yedek()
Dim StDatei As String
Dim StPhad As String
nokta = InStrRev(ThisWorkbook.Name, ".", -1)
StDatei = Left(ThisWorkbook.Name, nokta - 1) & ".xlk"
StPhad = ThisWorkbook.Path
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei) Then
    Kill StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
End If
ActiveWorkbook.SaveCopyAs Filename:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
End Sub

 

[ozgretmen]

Rica ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kod çalışır mı? Ben denedim oldu.

Sub Yedek()
ActiveWorkbook.SaveCopyAs "C:\XXXX.XLT"
End Sub

 

[Orion1]

Merhaba,

Aşağıdaki kod çalışır mı? Ben denedim oldu.

Sub Yedek()
ActiveWorkbook.SaveCopyAs "C:\XXXX.XLT"
End Sub

Necdet hocam mesajınız yeni gördüm.Teşekkür ederim.Oldu.

 

[Necdet]

Evren hocam,

Sayenizde bende birşeyler öğrenmiş oldum. Sorular yanıtları, yanıtlar bilgileri oluşturuyor.

 

[Orion1]

Evren hocam,

Sayenizde bende birşeyler öğrenmiş oldum. Sorular yanıtları, yanıtlar bilgileri oluşturuyor.

Estafurullah hocam