Excel dosyalarını yedekleme işi

[çetin sönmez]

Şehrimizde altyapı çalışmaları olduğu için sıksık elk.kesintisi yaşıyoruz.Dün de elk.kesilmişti bu sabah geldiğimde excel dosyalarımdan birini açamadım.Excel dosyanızı kurtaramadı falan diye bir pencere çıktı.Evet dosyam gitmişti.İki üç günde bir flasch diske yedekleme yapıyorum oradan tekrar yükledim ve sadece düne ait bir kaç işlemimi yeniden yaparak işi çözdüm.
Şimdi f.d. devamlı usb de takılı dursa ve bir programla 3 saatte bir veya her akşamüstü belirli saatte program kendisi dosyaları f.d ye gönderse olabilirmi böyle bir şey mümkünmü,mümkünse yolları nelerdir.tşk.ederim.

 

[N.Ziya Hiçdurmaz]

Bence siz bilgisayarınıza bir güç kaynağı alın böylece bu sorundan kurtulmuş olursunuz.

 

[N.Ziya Hiçdurmaz]

Üç saatte bir dosyanızı yedek alır.(C:\test\ burayı F disk adresi olacak F:\ gibi) test klasör ismidir.
Sub auto_open()
yol = InputBox("kayıt numarası girin")
Application.Wait Now + TimeValue("03:00:00")
If yol = "" Then
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\test\" & yol
MsgBox "dosya kaydedildi"
End Sub