Страницы: 1
RSS
Сохранить файл в нужной папке с нужным названием.
 
Добрый день, форумчане!
Я столкнулся со следующей проблемой и не смог её решить, прошерстив форумы.
Поэтому решил обратиться к вам. Постараюсь максимально просто объяснить.
Есть директория, допустим "C:\Итоги\выборка\". В ней есть разделение на папки (1 этап, 2 этап, 3 этап, 4 этап).
У меня имеется файл, который нужно сохранить в нужной папке с нужным названием. Для этого я собрал с листа информацию, куда нужно сохранить.
То есть у меня в ячейке (например А2) записано 1 этап.
А в ячейке (допустим, А3) содержится название файла, под которым его нужно сохранить. Пусть это будет "Итоги первого этапа". Сохранить файл нужно в формате .xlsb
Сделать это нужно макросом. То есть чтобы в зависимости от данных, содержащихся в ячейках А2 и А3, файл сохранялся правильно и куда требуется.

P.S. и еще такая просьба, если можно, прописать отдельный код для макроса, чтобы выходило окно Сохранить как , в котором сразу будет выбран формат .xlsb и в строке с предложенным названием уже содержался текст названия из ячейки А3.

Надеюсь, поможете с решением двух этих вопросов, а то совсем не получается.  
 
Код
Sub test()
Dim NewFileName As String
    'А2 - 1 этап (папка)
    'A3 - название файла
    NewFileName = "C:\Итоги\выборка\" & Range("A2") & "\" & Range("A3") & ".xlsb"
    ActiveWorkbook.SaveAs Filename:=NewFileName, FileFormat:=xlExcel12 'xlsb
    MsgBox "Файл сохранён!", vbInformation, ""
End Sub
Изменено: New - 09.04.2021 18:39:37
 
New, спасибо большое, всё работает!
Страницы: 1
Наверх