Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как сохранить копию и при запуске восстановить если удален. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сохранить копию и при запуске восстановить если удален. (Макросы/Sub)
Как сохранить копию и при запуске восстановить если удален.
Ckaym Дата: Понедельник, 28.09.2015, 10:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Как всегда нужна помощь профессионалов!

Как сохранить копию в другом месте и при запуске восстановить если удален основной файл.
К сообщению приложен файл: 000002.xlsm (14.3 Kb)

Ckaym
 
Ответить
СообщениеКак всегда нужна помощь профессионалов!

Как сохранить копию в другом месте и при запуске восстановить если удален основной файл.
Автор - Ckaym
Дата добавления - 28.09.2015 в 10:36
KSV Дата: Понедельник, 28.09.2015, 12:11 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Цитата Ckaym, 28.09.2015 в 10:36, в сообщении № 1
Как сохранить копию в другом месте
[vba]
Код
iBook.SaveAs "D:\копии\" & iBook.Name
[/vba]
Цитата Ckaym, 28.09.2015 в 10:36, в сообщении № 1
при запуске восстановить если удален основной файл
[vba]
Код
If Len(Dir$("C:\путь\основной файл.xlsx")) = 0 Then Set iBook = Workbooks.Open("D:\копии\основной файл.xlsx")
[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Понедельник, 28.09.2015, 12:12
 
Ответить
Сообщение
Цитата Ckaym, 28.09.2015 в 10:36, в сообщении № 1
Как сохранить копию в другом месте
[vba]
Код
iBook.SaveAs "D:\копии\" & iBook.Name
[/vba]
Цитата Ckaym, 28.09.2015 в 10:36, в сообщении № 1
при запуске восстановить если удален основной файл
[vba]
Код
If Len(Dir$("C:\путь\основной файл.xlsx")) = 0 Then Set iBook = Workbooks.Open("D:\копии\основной файл.xlsx")
[/vba]
Автор - KSV
Дата добавления - 28.09.2015 в 12:11
Ckaym Дата: Понедельник, 28.09.2015, 12:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
С копией всё понятно а вот с этим?
[vba]
Код
If Len(Dir$("C:\путь\основной файл.xlsx")) = 0 Then Set iBook = Workbooks.Open("D:\копии\основной файл.xlsx")
[/vba]
как быть что-то не пойму!

Ckaym
 
Ответить
СообщениеС копией всё понятно а вот с этим?
[vba]
Код
If Len(Dir$("C:\путь\основной файл.xlsx")) = 0 Then Set iBook = Workbooks.Open("D:\копии\основной файл.xlsx")
[/vba]
как быть что-то не пойму!
Автор - Ckaym
Дата добавления - 28.09.2015 в 12:42
Ckaym Дата: Понедельник, 28.09.2015, 13:05 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Всё спасибо разобрался!!! hands

Вопрос закрыт.

Ckaym
 
Ответить
СообщениеВсё спасибо разобрался!!! hands

Вопрос закрыт.
Автор - Ckaym
Дата добавления - 28.09.2015 в 13:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сохранить копию и при запуске восстановить если удален. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!