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

Вход

Регистрация

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

 

= Мир MS Excel/Создание копии файла при его закрытии в свою папку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии файла при его закрытии в свою папку (Макросы/Sub)
Создание копии файла при его закрытии в свою папку
Смольный Дата: Четверг, 19.05.2022, 16:14 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Добрый вечер, начну с печального, с начала года специалисты вели свою деятельность в файле эксель, ничего не предвещало, но в один день файл где велась работа, куда то делся, куда, пожимают плечами. Четыре месяца работы коту под хвост. Данных было много. В связи с этим прошу помощи в написании макроса для авто копирования файла в определенную папку находящуюся на этом же компьютере где и сам файл. Копирование без всяких уведомлений, при закрытии файла. В папке три копии, более не надо. Если конечно такое возможно.
 
Ответить
СообщениеДобрый вечер, начну с печального, с начала года специалисты вели свою деятельность в файле эксель, ничего не предвещало, но в один день файл где велась работа, куда то делся, куда, пожимают плечами. Четыре месяца работы коту под хвост. Данных было много. В связи с этим прошу помощи в написании макроса для авто копирования файла в определенную папку находящуюся на этом же компьютере где и сам файл. Копирование без всяких уведомлений, при закрытии файла. В папке три копии, более не надо. Если конечно такое возможно.

Автор - Смольный
Дата добавления - 19.05.2022 в 16:14
igrtsk Дата: Четверг, 19.05.2022, 16:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 303
Репутация: 50 ±
Замечаний: 0% ±

Excel 2016


Инструктор по применению лосей в кавалерийских частях РККА

Сообщение отредактировал igrtsk - Четверг, 19.05.2022, 17:01
 
Ответить
СообщениеПочитайте здесь
http://www.excelworld.ru/forum/3-2148-1
http://www.excelworld.ru/forum/2-71-7

Автор - igrtsk
Дата добавления - 19.05.2022 в 16:56
Смольный Дата: Четверг, 19.05.2022, 17:08 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

Почитайте здесь

читал, немного не мое
 
Ответить
Сообщение
Почитайте здесь

читал, немного не мое

Автор - Смольный
Дата добавления - 19.05.2022 в 17:08
RAN Дата: Четверг, 19.05.2022, 19:03 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5630
Репутация: 1143 ±
Замечаний: 0% ±

2010
Цитата Смольный, 19.05.2022 в 17:08, в сообщении № 3 ()
читал, немного не мое

hands
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Me.SaveCopyAs "D:\!ZZZ\" & Left(Me.Name, InStrRev(Me.Name, ".") - 1) & Format(Date, "_dd_mm_yy") & Mid(Me.Name, InStrRev(Me.Name, "."))
    Application.DisplayAlerts = True
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Смольный, 19.05.2022 в 17:08, в сообщении № 3 ()
читал, немного не мое

hands
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Me.SaveCopyAs "D:\!ZZZ\" & Left(Me.Name, InStrRev(Me.Name, ".") - 1) & Format(Date, "_dd_mm_yy") & Mid(Me.Name, InStrRev(Me.Name, "."))
    Application.DisplayAlerts = True
End Sub
[/vba]

Автор - RAN
Дата добавления - 19.05.2022 в 19:03
Смольный Дата: Пятница, 20.05.2022, 03:08 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 0 ±
Замечаний: 0% ±

RAN, При многократном закрытии файла, макрос сохраняет одну копию, перезаписывая ее. Спасибо за помощь.
 
Ответить
СообщениеRAN, При многократном закрытии файла, макрос сохраняет одну копию, перезаписывая ее. Спасибо за помощь.

Автор - Смольный
Дата добавления - 20.05.2022 в 03:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии файла при его закрытии в свою папку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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