با سلام و احترام خدمت اساتید بزرگوار
من برای ذخیره سازی فایل اکسل یک کد 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
من برای ذخیره سازی فایل اکسل یک کد 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
کامنت