Доброго времени суток!
Честно перечитал форумы, но не пойму, в чем загвоздка. Нужно, чтобы файл "Мастер2" каждые 25 секунд перезаписывался с винта под другим именем в другую папку (см. ниже). Макрос такой написал в файле "Мастер2":
При открытии книги в папке d:\Архив_Мастер образуется файл "21.04.2019.xls" (по сегодняшней дате), а если тот уже существует, то переписывается вместо него. Через 25 сек. выдается скрин. Я уж и так, и сяк, не могу понять. Прошу помочь.
Честно перечитал форумы, но не пойму, в чем загвоздка. Нужно, чтобы файл "Мастер2" каждые 25 секунд перезаписывался с винта под другим именем в другую папку (см. ниже). Макрос такой написал в файле "Мастер2":
Код |
---|
Sub Workbook_Open() If ActiveWorkbook.Name = "Мастер2.xls" Then Call MyMacro End Sub Sub MyMacro() Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile "d:\Мастер2.xls", "d:\Архив_Мастер\" & Date & ".xls", True Application.OnTime Now() + TimeSerial(0, 0, 25), "MyMacro" End Sub |
При открытии книги в папке d:\Архив_Мастер образуется файл "21.04.2019.xls" (по сегодняшней дате), а если тот уже существует, то переписывается вместо него. Через 25 сек. выдается скрин. Я уж и так, и сяк, не могу понять. Прошу помочь.