Экспорт нужных листов в отдельный файл с адресом и именем из ячеек - 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