با سلام
با کسب اجازه از مهندس پارسا
میتوان دوباره فایل اصلی را فراخوانی نمود و فایل Backup را بست
فایل پیوست را در درایو D کپی نمایید. (حتما با نام MKDIR.XLS )
کد PHP:
Sub test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Len(Dir("D:\Backup_mohammadreza", vbDirectory)) = 0 Then
MkDir "D:\Backup_mohammadreza"
End If
If Len(Dir("D:\Backup_mohammadreza\" & jToday, vbDirectory)) = 0 Then
MkDir "D:\Backup_mohammadreza\" & jToday
End If
ActiveWorkbook.SaveAs Filename:="D:\Backup_mohammadreza\" & jToday & "\backup.xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "OK"
ChDir "d:\"
Workbooks.Open Filename:="D:\MKDIR.xls"
Windows("backup.xlsm").Activate
ActiveWindow.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
علاقه مندی ها (Bookmarks)