Dosya Kopyası Hakkında

[konas06]

Selam.
Ağda kullanılan sürekli güncellenen bir dosyanın kopyasını nasıl alabiliriz.
(Bu kopya dosya da asıl dosyadaki tüm değişiklikler de sürekli güncel olması gerekir.)
Saygılarımla.

 

[konas06]

Selam,
Bu konuda hiç bir fikri olan yok mu?
(Bu tür mesajları görmekten nefret ediyorum ama konuyu dün akşam açmıştım halen bir cevap gelmedi. Kusura bakmayın)
Saygılarımla

 

[halit3]

Selam.
Ağda kullanılan sürekli güncellenen bir dosyanın kopyasını nasıl alabiliriz.
(Bu kopya dosya da asıl dosyadaki tüm değişiklikler de sürekli güncel olması gerekir.)
Saygılarımla.

bu dosyayı yedekliyor güncel olması için bu kodu kullanılan dosyanın kayıt bölümüne koymalısınızki buda güncel olsun kodları kendinize göre uyarlayınız.

Sub kopyala()
a = "C:\kullanılandosya.xls"
b = "D:\yenidosya.xls" 'yedek alınan sürücü ve dosya adı
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.CopyFile a, b
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
kopyala
End Sub

Sub kopyala()
a = ThisWorkbook.FullName
b = "D:\" & ActiveWorkbook.Name
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.CopyFile a, b
End Sub

 

[konas06]

Sayın Halit3,
Bu kodu kodlar bölümünde kitap kısmına mı, modüle kısmına mı nereye yapıştır malıyım?

 

[halit3]

Sayın Halit3,
Bu kodu kodlar bölümünde kitap kısmına mı, modüle kısmına mı nereye yapıştır malıyım?

örnek dosyanı önceden koysaydın iyi olacaktı

 

[Excelexcellent]

Merhaba

Aynı işlemi aşağıdaki kodlar ile yapıyorum.

dosya = "Hesap - YEDEK"
isim = "" & dosya & ".xls"
ydk = "D:\Hesaplarım\YEDEK\" & isim & ""
        ActiveWorkbook.SaveCopyAs ydk
MsgBox "İşlem Başarı  İle Tamamlanmıştır.", vbInformation, " BİLGİ"

Ancak, D sürücüsüne yedek alınan dosyayı açıp aynı yedekleme işlemi için komut verdiğim zaman ise,
Run-time error "1004"
Erişim hatası.

şeklinde uyarı veriyor. Bunun sebebi nedir çözemedim.

 

[halit3]

böyle denermisiniz.

Sub yedek()
dosya = "Hesap - YEDEK"
isim = dosya & ".xls"
ydk = "D:\Hesaplarım\YEDEK\" & isim
ActiveWorkbook.SaveCopyAs ydk
MsgBox "İşlem Başarı İle Tamamlanmıştır.", vbInformation, " BİLGİ"
End Sub

burada Haeaplarım ve YEDEK klasörü olmak zorunda