Экспорт нужных листов в отдельный файл с адресом и именем из ячеек - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день уважаемые коллеги! Обращаюсь с просьбой допилить один макрос, который нашел в просторах интернета и наиболее приближен к решению текущей задачи. В нем только не учтены следующие моменты (помогите, пожалуйста их зашить в существующий макрос): 1) При экспорте листов и сохранении их все формулы и ссылки превращаются в значения. Необходимо чтобы оборвались только связи с этой исходной книгой, а формулы оставить без изменений. 2) В данном макросе указываются конкретные порядковые номера листов для экспорта (с учетом скрытых). Возможно ли сделать например ссылку на ячейку в которой через , или ; я укажу названия нужных листов? 3) Необходимо сохранить в нужное место (указанное в ячейке), с нужным именем (тоже из ячейки) и заданным расширением (можно в макросе указать, например, *.xlsm) Нашел такой код, не знаю как прикрутить (пробовал сам, выдает ошибку):
На сколько решаема данная задачка?

Решение задачи: «Экспорт нужных листов в отдельный файл с адресом и именем из ячеек»

textual
Листинг программы
Sub Макрос1()
Dim p: p = Range("B1") & "\" & Range("B2") & ".xlsx"
  Sheets(Split(Range("B3"), "; ")).Copy
  ActiveWorkbook.BreakLink Name:=ThisWorkbook.FullName, Type:=xlExcelLinks
  ActiveWorkbook.SaveAs Filename:=p, FileFormat:=xlOpenXMLWorkbook _
    , CreateBackup:=False, AddToMru:=False
  ActiveWorkbook.Close 0
End Sub

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы