assenucler
Yeni Üye
- Katılım
- 19 Haz 2018
- Mesajlar
- 87
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 78
- Konum
- Emekli YMM
- Ad Soyad
- A. Selim Şenüçler
- Office Vers.
- Office 365 ev 64 bit
Merhabalar,
4 gün öncesine değin, masaüstümdeki C:\Users\aaa\Desktop\2020_Harcamaları.xlsx dosyamı her hafta D:\YEDEK_EXCEL klasörüne aşağıdaki kod ile yedekledim.
Windows 10 Home ve Office 365 bireysel 64 bit kullanmaktayım. 1 Haziran 2020 günü yaptığım güncelleme sonrası, 3 gündür dosyamın yedeğini aşağıdaki kod ile alamıyorum.
Nedeni ne olabilir?
Bu çalışma kitabındaki kod
4 gün öncesine değin, masaüstümdeki C:\Users\aaa\Desktop\2020_Harcamaları.xlsx dosyamı her hafta D:\YEDEK_EXCEL klasörüne aşağıdaki kod ile yedekledim.
Windows 10 Home ve Office 365 bireysel 64 bit kullanmaktayım. 1 Haziran 2020 günü yaptığım güncelleme sonrası, 3 gündür dosyamın yedeğini aşağıdaki kod ile alamıyorum.
Nedeni ne olabilir?
Bu çalışma kitabındaki kod
Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("D:\ARSIV_BUTCEYEDEK") = False Then
ds.CreateFolder "D:\ARSIV_BUTCEYEDEK"
End If
If ThisWorkbook.Path = "D:\ARSIV_BUTCEYEDEK" Then Exit Sub
If MsgBox(" Soruyor ... Dosyanın yedeğini D:\ARSIV_BUTCEYEDEK\ Dizinine almak istiyor musunuz?", vbInformation + vbYesNo, "Durum") = vbYes Then
yol = "D:\ARSIV_BUTCEYEDEK\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If
End Sub