سلام دوستان
من از ماکروی زیر برای بکاپ گیری استفاده میکنم حالا چه طور میتوانم این ماکرو طوری تغیر بدم که هنگام خروج با طور اتوماتیک بکاب بگیره یا اینکه در ساعتی مشخص از روز بکاب بگیره
من از ماکروی زیر برای بکاپ گیری استفاده میکنم حالا چه طور میتوانم این ماکرو طوری تغیر بدم که هنگام خروج با طور اتوماتیک بکاب بگیره یا اینکه در ساعتی مشخص از روز بکاب بگیره
کد:
Dim s, M, h, t, yyyy, mm, dd, file As String Dim Zaman Dim Fn Public Sub SaveFaileNow() Call Addres Fn = Application.GetSaveAsFilename(Zaman) ActiveWorkbook.SaveCopyAs Filename:=Fn & ".xlsm" End Sub Public Sub Addres() file = ActiveWorkbook.Path s = Second(Time) M = Minute(Time) h = Hour(Time) t = J_normdate(J_TODAY(1)) l = Left(t, 4) r = Right(t, 2) M = Mid(t, 5, 2) t = l & "," & M & "," & r yyyy = Year(Now) mm = Month(Now) dd = day(Now) If Len(mm) = 1 Then mm = "0" & mm If Len(dd) = 1 Then dd = "0" & dd If Len(h) = 1 Then h = "0" & h If Len(M) = 1 Then M = "0" & M If Len(s) = 1 Then s = "0" & s Zaman = "BACKUP" & t & " - " & (h) & "," & (M) & "," & (s) End Sub
کامنت