Создание копии файла при его закрытии в свою папку

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии файла при его закрытии в свою папку (Макросы/Sub)

Смольный

Дата: Четверг, 19.05.2022, 16:14 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

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

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

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

Ответить

igrtsk

Дата: Четверг, 19.05.2022, 16:56 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Почитайте здесь
http://www.excelworld.ru/forum/3-2148-1
http://www.excelworld.ru/forum/2-71-7

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

Сообщение отредактировал igrtsk - Четверг, 19.05.2022, 17:01

Ответить

Смольный

Дата: Четверг, 19.05.2022, 17:08 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

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

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

Цитата igrtsk, 19.05.2022 в 16:56, в сообщении № 2 (

)

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

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

Ответить

RAN

Дата: Четверг, 19.05.2022, 19:03 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

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

)

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

[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]

Быть или не быть, вот в чем загвоздка!

Ответить

Смольный

Дата: Пятница, 20.05.2022, 03:08 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

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

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

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии файла при его закрытии в свою папку (Макросы/Sub)

Страница 1 из 1
1