Excel VBA Макросы: Сохранение листа в новой книге с указание имени и пути из ячейки.

[bodys]

Доброго времени суток.
Как осуществить сохранение листа в новой книге, что бы не выбирать постоянно путь, а что бы он брал его из ячейки или прописан в макрос (сетевой путь таков "\\srv-nas\Warehouse\Накладные"), Эксель файл лежит так же в сетевой папке "Warehouse".

[Администратор]

В пункте 4 укажите полное имя файла. Также в пункт 4 можно подставлять  полное имя файла из ячейки. Если не знаете, как, то спросите.

Макрос

Sub макрос()

    Dim bk_act As Workbook, bk_new As Workbook
   
   
    '1. Присваиваем имя "bk_act" активному файлу, если вдруг потом понадобится к нему обратиться в коде.
        ' Т.к. после создания нового файла, активным файлом станет новый файл.
    Set bk_act = ActiveWorkbook
   
    '2. Копирование активного листа в новый пустой файл.
        ' Если у метода "Copy" ничего не указывать, то будет создан пустой файл
        ' и в него будет скопирован лист.
    ActiveSheet.Copy
   
    '3. Присваиваем имя новому файлу.
    Set bk_new = ActiveWorkbook
   
    '4. Сохранение нового файла.
    ' Здесь укажите полное имя нового файла (путь + имя).
    bk_new.SaveAs Filename:="C:\Users\User\Desktop\новый файл.xlsb", FileFormat:=xlExcel12
   
End Sub

[свернуть]