Замена основного файла на копию если она новее основного.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Замена основного файла на копию если она новее основного. (Макросы/Sub)

Ckaym

Дата: Среда, 30.09.2015, 07:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Можно ли заменить основной файл при запуске на копию если копия новее основного файла?
Если да то как это можно сделать!

Ckaym

Ответить

Hugo

Дата: Среда, 30.09.2015, 08:53 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Можно.
Макросом, желательно в персональной книге макросов.
При открытии любого файла макрос проверяет не тот ли файл который нужно контролировать, если тот - смотрит время сохранения копии, если она свежее, чем ранее запомненное время сохранения основного файла, то далее дейстует как предписано (тут пока никто не придумал как действовать - "заменить" это неконкретно).
Где файл и где копия, и что вообще это за файлы - тоже неизвестно.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Ckaym

Дата: Среда, 30.09.2015, 09:24 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Вот так он его восстанавливает основной файл если он удалён
[vba]

Код

If Len(Dir$("C:\путь\основной файл.xlsx")) = 0 Then Set iBook = Workbooks.Open("D:\копии\основной файл.xlsx")

[/vba]
копия сохраняется в интернете а если поработали с копией то при запуске основного файла он не видит изменений в копии и сохраняет уже без изменений!
как нибудь можно это реализовать замену, восстановление или сохранение перед запуском при условии.