Страницы: 1
RSS
Создать макрос сохранения документа с именем файла согласно значению в заданной ячейке
 
Нужна Ваша помощь! Создать макрос сохранения документа с именем файла согласно значению в заданной ячейке.
 
может эта тема поможет https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=71890&MID=s
 
Попробуйте этот код:
Код
Sub Сохранение()
With ActiveWorkbook
    .SaveCopyAs Filename:=.Path & "\" & .ActiveSheet.Cells(1, 1) & ".xlsx"
End With
End Sub
Этот код сохраняет копию файла активной книги в директорию с активной книгой
Изменено: artemkau88 - 15.01.2021 19:06:00
 
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "директория:\поддиректория\" & CStr(ActiveSheet.Range("E6")) & " всякий текст " & CStr(ActiveSheet.Range("F2")) & " еще всякий текст  " & CStr(ActiveSheet.Range("H2")) & " " & CStr(ActiveSheet.Range("C1"))  & ".pdf"
Я вот этим пользуюсь. Сохраняет куда надо и с нужным именем.
Формат только поменяйте, а то PDF вам, наверно, не нужен. :)
Изменено: IshI - 16.01.2021 12:10:05
Ничего не понимаю! ©
 
Ну и ещё нужно строго настрого надавать по рукам пользователям, которые в эту ячейку пишут что попало :)
Страницы: 1
Наверх