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

Вход

Регистрация

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

 

= Мир MS Excel/Резервная копия, копия и переименовывание файла - Мир MS Excel

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

Excel 2013
Добрый день. Нужно до конца месяца файл доделать, а я тут уткнулся. Есть файл, который ведут сотрудники, так называемый чек лист проделанной работы. Далее все эти чек листы собираются в сводные.
1. Нужно что бы при сохранении он сам себя переименовывал. Имя собирал из ячеек расположенных в файле во вкладках. пример имени - Ноябрь_2020_Пупков. Ноябрь и фамилия берется из вкладки ГРАФИК, 2020 просто добавляем. 2. Далее нужно чтобы он при сохранении создавал резервную копию в указанную папку в сети с именем 18_Ноябрь_2020_Пупков_8_12_15, где 18 это дата, а 8_12_15 время и 3. нужно чтобы при сохранении он помещал свою копию с именем Ноябрь_2020_Пупков в папку архив расположенной в той же папке, что и файл, и заменял там такой же файл с таким же именем.


Сообщение отредактировал Chieftec - Среда, 21.10.2020, 07:37
 
Ответить
СообщениеДобрый день. Нужно до конца месяца файл доделать, а я тут уткнулся. Есть файл, который ведут сотрудники, так называемый чек лист проделанной работы. Далее все эти чек листы собираются в сводные.
1. Нужно что бы при сохранении он сам себя переименовывал. Имя собирал из ячеек расположенных в файле во вкладках. пример имени - Ноябрь_2020_Пупков. Ноябрь и фамилия берется из вкладки ГРАФИК, 2020 просто добавляем. 2. Далее нужно чтобы он при сохранении создавал резервную копию в указанную папку в сети с именем 18_Ноябрь_2020_Пупков_8_12_15, где 18 это дата, а 8_12_15 время и 3. нужно чтобы при сохранении он помещал свою копию с именем Ноябрь_2020_Пупков в папку архив расположенной в той же папке, что и файл, и заменял там такой же файл с таким же именем.
Автор - Chieftec
Дата добавления - 21.10.2020 в 07:22
Chieftec Дата: Среда, 21.10.2020, 07:33 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
почему немогу прикрепить файл .xlsm
 
Ответить
Сообщениепочему немогу прикрепить файл .xlsm
Автор - Chieftec
Дата добавления - 21.10.2020 в 07:33
Pelena Дата: Среда, 21.10.2020, 08:36 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Chieftec, 21.10.2020 в 07:33, в сообщении № 2 ()
почему немогу прикрепить файл
видимо, велик размер. Весь файл не нужен, сделайте небольшой пример с сохранением структуры

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Chieftec, 21.10.2020 в 07:33, в сообщении № 2 ()
почему немогу прикрепить файл
видимо, велик размер. Весь файл не нужен, сделайте небольшой пример с сохранением структуры
Автор - Pelena
Дата добавления - 21.10.2020 в 08:36
Chieftec Дата: Среда, 21.10.2020, 09:47 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
файл
К сообщению приложен файл: _2020_.xls (313.4 Kb)


Сообщение отредактировал Chieftec - Среда, 21.10.2020, 09:48
 
Ответить
Сообщениефайл
Автор - Chieftec
Дата добавления - 21.10.2020 в 09:47
Chieftec Дата: Среда, 21.10.2020, 09:48 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
прикрепился
 
Ответить
Сообщениеприкрепился
Автор - Chieftec
Дата добавления - 21.10.2020 в 09:48
Chieftec Дата: Среда, 21.10.2020, 13:45 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False

thisPath = ThisWorkbook.Path
myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
arhiv = "aрхив"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(ThisWorkbook.Path & "\" & arhiv) Then
FSO.CreateFolder (ThisWorkbook.Path & "\" & arhiv)
End If

ThisWorkbook.SaveCopyAs thisPath & "\" & arhiv & "\" & myName & "." & ext

Application.EnableEvents = True

Application.EnableEvents = False

thisPath = ThisWorkbook.Path
myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
backupdirectory = myName & " backups"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
FSO.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
End If

T = Format(Now, "_hh_mm_ss")
N = Format(Now, "dd_")
ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & N & myName & " " & T & "." & ext

Application.EnableEvents = True
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False

thisPath = ThisWorkbook.Path
myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
arhiv = "aрхив"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(ThisWorkbook.Path & "\" & arhiv) Then
FSO.CreateFolder (ThisWorkbook.Path & "\" & arhiv)
End If

ThisWorkbook.SaveCopyAs thisPath & "\" & arhiv & "\" & myName & "." & ext

Application.EnableEvents = True

Application.EnableEvents = False

thisPath = ThisWorkbook.Path
myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
backupdirectory = myName & " backups"

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
FSO.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
End If

T = Format(Now, "_hh_mm_ss")
N = Format(Now, "dd_")
ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & N & myName & " " & T & "." & ext

Application.EnableEvents = True
End Sub
[/vba]
Автор - Chieftec
Дата добавления - 21.10.2020 в 13:45
Chieftec Дата: Среда, 21.10.2020, 13:51 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
пока только добился чтобы при сохранении копию с тем же именем делал в папку архив а так же создавал резервную копию в папку myName & " backups" в том же месте где находится файл. Осталось чтобы файл при сохранении переименовывал сам себя из данных полученных в ячейках этого файла, а также чтобы резервную копию делал в указанную мною папку. Если поможете буду благодарен
 
Ответить
Сообщениепока только добился чтобы при сохранении копию с тем же именем делал в папку архив а так же создавал резервную копию в папку myName & " backups" в том же месте где находится файл. Осталось чтобы файл при сохранении переименовывал сам себя из данных полученных в ячейках этого файла, а также чтобы резервную копию делал в указанную мною папку. Если поможете буду благодарен
Автор - Chieftec
Дата добавления - 21.10.2020 в 13:51
RAN Дата: Среда, 21.10.2020, 16:41 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
ThisWorkbook.SaveAs
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
ThisWorkbook.SaveAs
[/vba]
Автор - RAN
Дата добавления - 21.10.2020 в 16:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Резервная копия, копия и переименовывание файла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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