Как создать сценарий резервного копирования VBA в указанное время

Question

Например, у меня есть файл excel, сохраненный на нашем сетевом диске. В этом файле я хочу реализовать решение, которое позволит автоматическое резервное копирование в течение времени, указанного пользователем.

Например: File.xlsx

Сценарий будет подпорка этот файл каждый 10:00 часов утра, 4:00 вечера и 5:00 утра. Это будет возможно?

Answer 1

Используйте этот подпункт ниже и просто добавить свой собственный резервное копирование и сохранение макроса называется BackupFile

Sub SetSchedule() 

Application.OnTime TimeValue("5:00:00"), "BackupFile" 

Application.OnTime TimeValue("10:00:00"), "BackupFile" 

Application.OnTime TimeValue("16:00:00"), "BackupFile" 

Application.OnTime TimeValue("23:59:00"), "SetSchedule" 

End Sub 

И называет его из открытого подразделам:

Sub Workbook_Open() 

    Call SetSchedule 

End Sub 

Answer 2

Лучше всего было бы создать по расписанию Задача запуска файла партии или скрипта, который будет поддерживать ваш файл.

Ниже приведены примеры параметров для запланированной задачи.

C: \ Windows \ System32 \ WScript.exe C: \ Excel Files \ backup.vbs»

Сохранить этот сценарий, как backup.vbs

VBScript

Const FolderName = "C:\Excel Files\" 
Const FileName = "Data.xlsm" 
Dim fso, NewName, sb 

Set sb = CreateObject("System.Text.StringBuilder") 
sb.AppendFormat "{0:yyyy-MM-dd} {0,8:t}", CDate(Now) 

NewName = Replace(sb.ToString(), ":" ,".") & " - " & FileName 

Set fso = WScript.CreateObject("Scripting.Filesystemobject") 

fso.CopyFile FolderName & FileName, FolderName & NewName,True