Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макросом сохранить текущий файл в другую папку, но чтобы пользователь остался в текущем файле
 
#1
28.12.2022 11:55:10
Всем привет!

Помогите, плиз, с кодом VBA, если задачу возможно реализовать кодом

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

Нужно сделать так, чтобы файл все таки сохранялся в другую папку, но пользователь при этом оставался в первоначальном файле с доступом "только чтение".
Если пользователю нужно - он сохранит этот файл себе куда угодно или закроет и откроет уже файл из новой папки, куда он был сохранен макросом

Для сохранения использую код:

Dim Ab
Ab = Sheets("Выводы").Range("E6")
   ActiveWorkbook.SaveAs Filename:="I:\fmm\" & "Проект_" & Ab & "_" & Format(Now(), "yyyy-mm-dd_hh-mm") & ".xlsm", FileFormat:= _
       xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Заранее спасибо!
 
 
 
#2
28.12.2022 12:05:35
Справочку почитайте и сами все поймете
Метод Workbook.SaveAs
Параметр CreateBackup
Изменено: _Boroda_ - 28.12.2022 12:06:03
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#3
28.12.2022 12:05:40
ActiveWorkbook.SaveCopyAs
Метод Workbook.SaveCopyAs (Excel) | Microsoft Learn
 
 
 
#4
28.12.2022 12:15:43
Спасибо!
Воспользовался ActiveWorkbook.SaveCopyAs
 
 
 
#5
28.12.2022 12:17:32
вам нужна копия файла в другой папке?
Код
  Dim fn$, Ab
  Ab = Sheets("Выводы").Range("E6")
  fn = "I:\fmm\" & "Проект_" & Ab & "_" & Format(Now(), "yyyy-mm-dd_hh-mm") & ".xlsm"
  If Dir(fn) <> "" Then Kill fn
  FileCopy ThisWorkbook.FullName, fn
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Наверх