Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Разрыв связей при экспорте листов в отдельный файл - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрыв связей при экспорте листов в отдельный файл (Макросы/Sub)
Разрыв связей при экспорте листов в отдельный файл
Anis625 Дата: Вторник, 13.02.2018, 23:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 96
Репутация: 1 ±
Замечаний: 0% ±

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

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

Помогите, пожалуйста допилить макрос чтобы разрывались связи, но не все значением стало, а только оборвались связи (как делаем обычно вручную: Данные - Изменить связи - Разорвать связи), но только зашить в базовый макрос.
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]
К сообщению приложен файл: 9258840.xlsm(25.0 Kb)
 
Ответить
СообщениеПрошу прощения за кросс. Но очень нужна помощь. Последние штрихи остались в огромной своей задачке.

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

Помогите, пожалуйста допилить макрос чтобы разрывались связи, но не все значением стало, а только оборвались связи (как делаем обычно вручную: Данные - Изменить связи - Разорвать связи), но только зашить в базовый макрос.
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]

Автор - Anis625
Дата добавления - 13.02.2018 в 23:03
KuklP Дата: Среда, 14.02.2018, 04:14 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2347
Репутация: 481 ±
Замечаний: 0% ±

2003-2010
Кросс если что, тут:
http://www.planetaexcel.ru/forum...._r=3046


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Среда, 14.02.2018, 04:17
 
Ответить
СообщениеКросс если что, тут:
http://www.planetaexcel.ru/forum...._r=3046

Автор - KuklP
Дата добавления - 14.02.2018 в 04:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разрыв связей при экспорте листов в отдельный файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!