DOSYA YEDEKLEME

Katılım
5 Kasım 2010
Mesajlar
11
Excel Vers. ve Dili
2003 türkçe
MERHABA
AŞAĞIDAKİ KODU KULLANARAK DOSYALARIMI "RAR" FORMATINDA YEDEK ALABİLİYORUM. ANCAK RASTGELE YERE KAYDEDİYOR. BAZEN MASAÜSTÜNE BAZEN DE BELGELERİME. YEDEK DOSYAMI NASIL İSTEDİĞİM KLASÖRE KAYDEDEBİLİRİM?

Sub DENEME()
KLASOR_YOLU = ActiveWorkbook.Path
veriKlasor = KLASOR_YOLU
hedefKlasor = ThisWorkbook.Path
ChDir ThisWorkbook.Path
XlsmDosyaAdi = "YEDEK.XLSM"
ZAMAN = Application.Text(Now(), "dd-mm-yyyy hh-mm")
RarDosyaAdi = "YEDEK.rar"
s = "C:\Program Files\winrar\rar a" & " " & Chr(34) & ZAMAN & " " & RarDosyaAdi & _
Chr(34) & " " & Chr(34) & veriKlasor & Chr(34)
Shell s, vbHide
Set fs = Nothing
End Sub
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
5-6 kere denedim ve hepsinde de belgenin olduğu klasöre (Thisworkbook.path) yedek aldı kodlar. Başka bir excel açık ise KLASOR_YOLU = ActiveWorkbook.Path satırından dolayı farklı yere yedek alabilir belki. KLASOR_YOLU = ThisWorkbook.Path olarak deneyin bir.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
C:\TestFolder klasörüne yedeklemek için ...

Kod:
Sub Test()
    SourceFolder = ThisWorkbook.Path
    DestDir = "C:\TestFolder\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub
.
 
Son düzenleme:
Katılım
5 Kasım 2010
Mesajlar
11
Excel Vers. ve Dili
2003 türkçe
C:\TestFolder klasörüne yedeklemek için ...

Kod:
Sub Test()
    SourceFolder = ThisWorkbook.Path
    DestDir = "C:\TestFolder\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub
.
öncelikle cevabınız için teşekkür ederim.
ancak C de bu klasörü benim oluşturmam gerekiyor. kendim oluşturmadan yedek almıyor. ayrıca klasör ismini belgelerim olarak değiştirdiğimde ise yine yedek almıyor
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Masaütüne yedeklemek için;

Kod:
Sub Test2()
    Set objShell = CreateObject("WScript.Shell")
    myDesktop = objShell.SpecialFolders("Desktop")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDesktop & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub
.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Belgelerim klasörüne yedeklemek için;

Kod:
Sub Test3()
    Set objShell = CreateObject("WScript.Shell")
    myDocuments = objShell.SpecialFolders("MyDocuments")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDocuments & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub
.
 
Son düzenleme:
Katılım
5 Kasım 2010
Mesajlar
11
Excel Vers. ve Dili
2003 türkçe
Belgelerim klasörüne yedeklemek için;

Kod:
Sub Test3()
    Set objShell = CreateObject("WScript.Shell")
    myDocuments = objShell.SpecialFolders("MyDocuments")
    Set objShell = Nothing
    SourceFolder = ThisWorkbook.Path
    DestDir = myDocuments & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar"
    Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34), vbHide
End Sub
.
teşekkür ederim. gayet başarılı. sorunsuz çalışıyor
saygılar
 
Üst