سلام دوستان
من این ماکرو در ورد بوک زخیره کردم برای پشتیبان گیری خودکار از فایلم
الان مشکلی که هست وقتی فایل میبندم پنجره ای باز میشود که فایل پشتیبان در کجا زخیره شود
من میخواهم به طور خودکار ادرس دهی کند و مثلا در درایو 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
 |
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)