سلام دوستان
من این ماکرو در ورد بوک زخیره کردم برای پشتیبان گیری خودکار از فایلم
الان مشکلی که هست وقتی فایل میبندم پنجره ای باز میشود که فایل پشتیبان در کجا زخیره شود
من میخواهم به طور خودکار ادرس دهی کند و مثلا در درایو d ذخیره شود
من این ماکرو در ورد بوک زخیره کردم برای پشتیبان گیری خودکار از فایلم
الان مشکلی که هست وقتی فایل میبندم پنجره ای باز میشود که فایل پشتیبان در کجا زخیره شود
من میخواهم به طور خودکار ادرس دهی کند و مثلا در درایو d ذخیره شود
کد:
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
کامنت