با سلام و احترام خدمت اساتید بزرگوار
من برای ذخیره سازی فایل اکسل یک کد vb دارم که هر زمان فایل اکسل رو سیو میکنم یک نسخه از فایل رو در my document با تاریخ و ساعت سیو میکنه. حالا میخوام مسیرش رو عوض کنم و ببرم تو درایو d و درون یک فولدر سیو کنم. ممنون میشم کمکم کنید که کدشو اصلاح کنم تا بتونم این کارو انجام بدم. متشکرم.

Option Explicit





Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MyFilePath$, Extension$
MyFilePath = MyPCpath("MyDocuments")
Extension = Left(ThisWorkbook.Name, Len _
(ThisWorkbook.Name) - 4) & " Backup"

On Error Resume Next '<< folder exists
MkDir MyFilePath & Extension '<< create folder
'save current version of this book in the folder
ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
Extension & "" & Extension & _
(Format(Now, " yyyy.m.d, hh.mm AMPM")) & ".xls"

End Sub


Private Sub Workbook_Open()
Application.Caption = "Microsoft Excel AutoBackup"
End Sub




Public Function MyPCpath$(Folder)
MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
(Folder) & Application.PathSeparator
End Function
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.