ذخیره روزانه اتوماتیکی

**iranweld** · 2016/05/03, 14:23

با سلام

در فایل پیوست با کلیک بر روی باتن backup در درایو d پوشه ای به نام Hejar ساخته شده و در داخل آن پوشه ای با تاریخ روز ساخته شده و فایل شما با نام backup ذخیره میگردد.

در فایلهای بک آپ فرمولها کپی نشده و فقط مقدار سلولها ثبت میگردد بنابر این با هر بار باز کردن دیگر تاریخ تغییر نخواهد کرد.

کد PHP:

Sub test() Application.ScreenUpdating = False Application.DisplayAlerts = False If Len(Dir("D:\Hejar", vbDirectory)) = 0 Then MkDir "D:\Hejar" End If If Len(Dir("D:\Hejar\" & jToday, vbDirectory)) = 0 Then MkDir "D:\Hejar\" & jToday End If XX = ActiveWorkbook.FullName FileList ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:="D:\Hejar\" & jToday & "\backup" & I & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select MsgBox "Backup " & I & " is done" Workbooks.Open Filename:=XX Windows("backup" & I & ".xlsm").Activate ActiveWindow.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

فایل های پیوست شده

backup.xls (70.5 کیلو بایت, مشاهدات 37)

**hejar** · 2016/05/03, 14:54

با سلام.
دوست عزيز من در خارج از ايران هستم و از تاريخ ميلادى استفاده ميكنم.
و به جاى درايو D از E استفاده ميكنم.
در ضمن نميخواهم اين backup در شيت اصلى تغييرى انجام دهد و اين فقط شيت مورد نظر را ذخيره كند نه شيت دیگری كه از today استفاده ميكند.

با تشكر