Разорвать связи только на активном листе

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

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

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

Alexei

Дата: Среда, 28.08.2013, 20:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Добрый вечер.
На планете excel некоторое время назад нашел макрос, который разрывает все связи в документе.
[vba]

Код

Dim iLinks As Variant, i&
   iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(iLinks) Then
      For i = 1 To UBound(iLinks)
        ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
     Next i
    End If

[/vba]
Подскажите, пожалуйста, как его переписать, чтобы разорвать связи только на активном листе.

Ответить

Serge_007

Дата: Среда, 28.08.2013, 20:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

А Вы уверены что можно разорвать связи только на активном листе?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Alexei

Дата: Среда, 28.08.2013, 20:57 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Не уверен, так как нигде не нашел подобного.
Потому и спрашиваю.
Значит не возможно это сделать?

Сообщение отредактировал Alexei - Среда, 28.08.2013, 20:58

Ответить

Serge_007

Дата: Среда, 28.08.2013, 21:12 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Насколько я знаю, подключения возможны только к книге, но не к листу

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Alexei

Дата: Среда, 28.08.2013, 21:30 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

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

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

Excel 2010

Очень жаль.
Спасибо за ответ.

Ответить

MCH

Дата: Четверг, 29.08.2013, 08:28 | Сообщение № 6

Группа: Админы

Ранг: Старожил

Сообщений: 2003

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

Замечаний: ±

Ручной способ:
Переносим активный лист в новую книгу
Разрываем на нем связи (за исключением связей с первоначвальной книгой)
Переносим лист обратно

Сообщение отредактировал MCH - Четверг, 29.08.2013, 12:48

Ответить

KuklP

Дата: Четверг, 29.08.2013, 12:29 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Дык эта... ctrl+h рулит. Или я чего-то недопонимаю?

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

Ответить

Serge_007

Дата: Четверг, 29.08.2013, 12:37 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Серёг, ссылки могут ведь и разные быть)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Timber_Wolf

Дата: Среда, 23.11.2016, 10:54 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

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

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

Excel 2010

Ни как не разрывается связь...
Выложенный макрос в первом посте не сработал.
Куча других макросов из инета так же не подействовали...

Приложил непобедимый файл со связями.

Есть идеи что в нем не так? В идеале бы получить работающее решение на этом примере...
Ручное копирование не предлагать... Листов в книге по факту от 30 до 50. Надо их разом окучивать от подобного мусора.

Если удастся разорвать связи, скажите где эта дрянь сидит, конкретно в этом файле? =))) Как вы ее смогли найти? =)) Что я только не перепробовал, я не вижу ни одной связи на листе =))

ПыСы: "Ты видишь суслика? Нет? Я тоже нет... А он есть!" =))

К сообщению приложен файл: 0070745.xlsm (17.1 Kb)

Сообщение отредактировал Timber_Wolf - Среда, 23.11.2016, 10:56

Ответить

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

Страница 1 из 1
1