Разрыв связей при экспорте листов в отдельный файл

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрыв связей при экспорте листов в отдельный файл (Макросы/Sub)

Anis625

Дата: Вторник, 13.02.2018, 23:03 | Сообщение № 1

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Прошу прощения за кросс. Но очень нужна помощь. Последние штрихи остались в огромной своей задачке.

Есть готовый макрос который решает задачу отправки с кнопки заданных в ячейке названий листов, в нужную папку и под нужным именем. Все работает отлично с одним НО - остаются в новом файле связи с исходным файлом.

Помогите, пожалуйста допилить макрос чтобы разрывались связи, но не все значением стало, а только оборвались связи (как делаем обычно вручную: Данные - Изменить связи - Разорвать связи), но только зашить в базовый макрос.
4 строка (.BreakLink...) почему то не срабатывает.

[vba]

Код

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

[/vba]