yedek alma

[mpinal]

merhaba arkadaşlar,

Benim sorunum yedek alma ile ilgili ; Eğer mümkünse bir makro yardımıyla dosyanın bir kopyasını bilgisayarımın d bölümüne kopyasını aldırmak istiyorum fakat bunu yaparken ismini o günün tarihi olarak değiştirmesini istiyorum.

örneğin c de masaüstündeki bir excel dosyasının bir makro yardımıyla d deki yedek dosyasının içine örneğin 2 eylül 2012.xls olarak kaydetmesini istiyorum ya da yedek dosyasının ismi ne olsun diye bana sorarsa oda işime gelir.ilgilenebilirseniz sevinirim.

 

[halit3]

merhaba arkadaşlar,

Benim sorunum yedek alma ile ilgili ; Eğer mümkünse bir makro yardımıyla dosyanın bir kopyasını bilgisayarımın d bölümüne kopyasını aldırmak istiyorum fakat bunu yaparken ismini o günün tarihi olarak değiştirmesini istiyorum.

örneğin c de masaüstündeki bir excel dosyasının bir makro yardımıyla d deki yedek dosyasının içine örneğin 2 eylül 2012.xls olarak kaydetmesini istiyorum ya da yedek dosyasının ismi ne olsun diye bana sorarsa oda işime gelir.ilgilenebilirseniz sevinirim.

Bu konuda arivde bir çok örnek var arama yapsaydınız mutlaka bulacağınıza inanıyorum.
örnek kod:

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Dim Klasor As String, uzanti As String, dosya As String
Klasor = "D:\Yedek"
uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare) - 1)
dosya = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - Len(uzanti) - 1)
ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = dosya & Format(Now, " dd_mm_yyyy_hh_nn_ss") & "." & uzanti
Kayıt_Yeri = Klasor & "\" & Yedek_Dosya_Adı
If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then
MkDir Klasor
End If
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Chr(10) & Kayıt_Yeri, vbInformation, "U Y A R I "
Application.DisplayAlerts = True
End Sub

 

[mpinal]

teşekkür ederim

Bu konuda arivde bir çok örnek var arama yapsaydınız mutlaka bulacağınıza inanıyorum.
örnek kod:

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Dim yer
yer = "D:\Yedek"
For i = 1 To Len(ThisWorkbook.Name)
If Mid(ThisWorkbook.Name, i, 1) = "." Then
Dosya = Mid(ThisWorkbook.Name, 1, i - 1)
Uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
End If
Next
ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_nn_ss") & Uzanti
Kayıt_Yeri = yer & "\" & Yedek_Dosya_Adı
If CreateObject("Scripting.FileSystemObject").FolderExists(yer) = False Then
MkDir yer
End If
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation, "Ajandam Uyarı Sistemi"
Application.DisplayAlerts = True
End Sub

Sayın Halit3 ilginize ve emeğinize teşekkür ederim .Bu arada arama yaptım fakat kod yazmayı tam bilmiyorum bu yüzden istediğim şekilde bir örnek bulamadım sadece sizin ve diğer uzmanlarımızın yazdığı kodlar üzerinde basit oynamalar yapabilecek kadar bilgi sahibiyim bu yüzden konuyu tekrar gündeme getirdim,yine de tavsiyenizi dikkate alacağım.iyi çalışmalar bu arada kod gayet düzgün çalışıyor.

 

[halit3]

Sayın Halit3 ilginize ve emeğinize teşekkür ederim .Bu arada arama yaptım fakat kod yazmayı tam bilmiyorum bu yüzden istediğim şekilde bir örnek bulamadım sadece sizin ve diğer uzmanlarımızın yazdığı kodlar üzerinde basit oynamalar yapabilecek kadar bilgi sahibiyim bu yüzden konuyu tekrar gündeme getirdim,yine de tavsiyenizi dikkate alacağım.iyi çalışmalar bu arada kod gayet düzgün çalışıyor.

İyi çalışmalar

 

[cyberwolf1980]

.

Merhaba,
ektekı dosyayı ıncelermısınız ısınıze yararsa kodlarını degıstırıp kullanabılırsınız.
ıyı gunler.