|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.03.2010, 10:37 | #1 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Резервное копирование папки с файлами xls (Excel 2003)
Мне необходимо резервное копирование папки с файлами xls в другую папку, название которой будет отражать текущее время и дату копирования.
Копирование должно происходить при закрытии любого открытого файла xls в резервируемой папке. Подскажите,кто знает. |
12.03.2010, 11:45 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Тема не имеет отношения к Excel.
Есть специальные программы, выполняющие резервное копирование по команде, или по расписанию. Есть программы, отслеживающие открытие\закрытие файлов в указанной папке. Совместив 2 такие программы, вы получите то, что требуется. Можно, конечно, написать макрос, который будет делать это (макросом можно и диски форматировать при желании), но стоит ли? |
12.03.2010, 12:15 | #3 |
Пользователь
Регистрация: 15.01.2010
Сообщений: 31
|
Для Windows XP Пуск/Программы/Стандартные/Служебные/Архивация данных жмем:
Далее Далее Предоставить возможность выбора объектов архивации /Выбираем папку с файлами /Выбираем куда сохраняем Далее Дополнительно Выбираем "Добавочный" или какой вам по душе Далее Далее Далее Позднее Установить расписание Собственно встроено в каждую ОС |
12.03.2010, 12:42 | #4 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Это мне не подходит.
Вот попробовал батником: код : copy D:\1 E:\2 D-это раздел диска E-это флэшка 1-это папка,которую копируют 2-это папку в которую копируют Можно ли написать макрос для файла Excel,а он находится в папке D:\1,который запустил бы этот батник? |
12.03.2010, 12:57 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Батник не нужен - указанную команду можно выпонить прямо из макроса.
Пример см. здесь: http://www.programmersforum.ru/showp...49&postcount=5 Макрос может выглядеть так: (поместите код в модуль ЭтаКнига) Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 12.03.2010 в 13:00. |
12.03.2010, 13:40 | #6 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Это как раз то,что я и хотел.
Огромное спасибо! По ссылке мне не разобраться.Сказывается возраст-53г,да и компьютером я начал заниматься 3 года назад.Особенно заинтересовал Excel VBA. Подскажите пожалуйста ещё: 1.Можно ли,чтобы копируемая папка копировалась в сжатую 7z 2.Чтобы файлы не заменялись,а добавлялись |
12.03.2010, 14:01 | #7 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
В ZIP-архив загнать можно, но макрос заметно усложнится. Но надо ли это? В наше время мегабайт места на жестком диске (да и на флешке тоже) стоит копейки. Зачем экономить? Цитата:
Поэтому проще всего решить вопрос, создавая каждый раз новую подпапку в папке для архивации. Это можно сделать кодом из 2 строк: Код:
Сколько бы раз вы не производили архивирование, каждый раз файлы попадут в новую папку. |
||
12.03.2010, 14:22 | #8 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Теперь не пойму как соединить эти 2 макроса.
Кое,что попробовал, новые папки создаются,но туда ничего не копируется. |
12.03.2010, 14:31 | #9 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
А если так попробовать?
Код:
|
12.03.2010, 15:16 | #10 |
Пользователь
Регистрация: 28.07.2009
Сообщений: 54
|
Отлично всё работает!
Осталось сжатие копируемой папки с файлами. так как она будет размером 300мгб.Резервное копирование будет производится 1раз в день,т.е. 30 копий в месяц. Получается 9ггб без сжатия.Многовато. Вот упорно рыл и нашёл ваш макрос.Но он не работает.Можно ли его поправить и чтобы сжатие было 7z ? Ссылка: http://forum.developing.ru/showthrea...4634#post64634 Sub СозданиеSFXархива() ' имя создаваемого архива будет иметь вид Мой архив 17-Feb-2009.exe WinRAR_Path = """C:\Program Files\WinRAR\WinRAR.exe""" WinRAR_Keys = " a -r -sfx -ep -agDD-MMM-YYYY " FolderPath = "C:\Documents and Settings\Игорь\Рабочий стол\" ' папка с файлами ArchieveFileName = Chr(34) & FolderPath & "Мой архив .exe" & Chr(34) ' имя и путь создаваемого архива Mask = Chr(34) & FolderPath & "*.xls" & Chr(34) ' добавляем только файлы Excel Icon = " -iicon" & Chr(34) & "C:\Program Files\Microsoft Office\OFFICE11\MSN.ICO" & Chr(34) ' иконка CommandLine = WinRAR_Path & WinRAR_Keys & ArchieveFileName & " " & Mask & Icon 'MsgBox CommandLine Shell CommandLine End Sub |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
скрытное копирование папки с файлами | BanDit | Общие вопросы Delphi | 36 | 08.03.2011 21:53 |
Резервное копирование БД Paradox | andirock2112 | БД в Delphi | 6 | 19.05.2009 17:35 |
Прога Резервное копирование | Yar | Помощь студентам | 1 | 28.05.2008 11:24 |
Резервное копирование файлов | Viteef | Софт | 0 | 15.12.2007 08:02 |