Excel разорвать связи не работает

Хитрости »

30 Декабрь 2018              78604 просмотров

---

Невозможно разорвать связи с другой книгой

Прежде чем разобрать причины ошибки разрыва связей, не лишним будет разобраться что такое вообще связи в Excel и откуда они берутся. Если все это Вам известно — можете пропустить этот раздел

• Что такое связи в Excel и как их создать
• Как разорвать/удалить связи
• Что делать, если связи не разрываются

• [Продажи 2018.xlsx] — обозначает книгу, в которой итоговое значение. Такие книги так же называют источниками
• Отчет — имя листа в этой книге
• $A:$F и $A1 — непосредственно ячейка или диапазон со значениями

Если закрыть книгу, на которую была создана такая ссылка, то ссылка сразу изменяется и принимает более «длинный» вид:
=ВПР(A2;’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
=’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A1
Предположу, что большинство такими ссылками не удивишь. Такие ссылки так же принято называть связыванием книг. Поэтому как только создается такая ссылка на вкладке Данные(Data) в группе Запросы и подключения(Queries & Coonections) активируется кнопка Изменить связи(Edit Links). Там же, как несложно догадаться, их можно изменить. В большинстве случаев ни использование связей, ни их изменение не доставляет особых проблем. Даже если в книге источники были изменены значения ячеек, то при открытии книги со связью эти изменения будут так же автоматом обновлены. Но если книгу-источник переместили или переименовали — при следующем открытии книги со ссылками на неё Excel покажет сообщение о недоступных связях в книге и запрос на обновление этих ссылок:

Если нажать Продолжить, то ссылки обновлены не будут и в ячейках будут оставлены значения на момент последнего сохранения. Происходит это потому, что ссылки хранятся внутри самой книги и так же там хранятся значения этих ссылок. Если же нажать Изменить связи(Change Source), то появится окно изменения связей, где можно будет выбрать каждую связь и указать правильное расположение нужного файла:

Так же изменение связей доступно непосредственно из вкладки Данные(Data)

---

Как разорвать связи

Как правило связи редко нужны на продолжительное время, т.к. они неизбежно увеличивают размер файла, особенно, если связей много. Поэтому чаще всего связь создается только для единовременно получения данных из другой книги. Исключениями являются случаи, когда связи делаются на общий файл, который ежедневного изменяется и дополняется различными сотрудниками и подразделениями, а в итоговом файле необходимо использовать именно актуальные данные этого файла.
Если решили разорвать связь, необходимо перейти на вкладку

Данные(Data)

-группа

Запросы и подключения(Queries & Coonections)

—

Изменить связи(Edit Links)

:

Выделить нужные связи и нажать

Разорвать связь(Break Link)

. При этом все ячейки с формулами, содержащими связи, будут преобразованы в значения вычисленные этой формулой при последнем обновлении. Данное действие нельзя будет отменить — только закрытием книги без сохранения.
Так же связи внутри формул разрываются, если формулы просто заменить значениями -выделяем нужные ячейки -копируем их -не снимая выделения жмем

Правую кнопку мыши

—

Специальная вставка(Paste Special)

—

Значения(Values)

. Формулы в ячейках будут заменены результатами их вычислений, а все связи будут удалены.
Более подробно про замену формул значениями можно узнать из статьи: Как удалить в ячейке формулу, оставив значения?

---

Что делать, если связи не разрываются

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

• проверьте нет ли каких-либо связей в именованных диапазонах:
  нажмите сочетание клавиш Ctrl+F3 или перейдите на вкладку Формулы(Formulas) —Диспетчер имен(Name Manager)
  Читать подробнее про именованные диапазоны
  Если в каком-либо имени есть ссылка с полным путем к какой-то книге(вроде такого ‘[Продажи 2018.xlsx]Отчет’!$A1), то такое имя надо либо изменить, либо удалить. Кстати, некоторые имена в итоге могут выдавать ошибку #ССЫЛКА!(#REF!) — к ним тоже стоит присмотреться. Имена с ошибками ничего хорошего как правило не делают.
  Настоятельно рекомендую перед удалением имен создать резервную копию файла, т.к. неверное удаление таких имен может повлечь неправильную работу файла даже в случае, если сами ссылки возвращали в итоге ошибочное значение.
• если удаление лишних имен не дает эффекта — проверьте условное форматирование:
  вкладка Главная(Home) —Условное форматирование(Conditional formatting) —Управление правилами(Manage Rules). В выпадающем списке проверить каждый лист и условия в нем:
  
  Может случиться так, что условие было создано с использованием ссылки на другие книги. Как правило Excel запрещает это делать, но если ссылка будет внутри какого-то именованного диапазона — то диапазон такой можно будет применить в УФ, но после его удаления в самом УФ это имя все равно остается и генерирует ссылку на файл-источник. Такие условия можно удалять без сомнений — они все равно уже не выполняются как положено и лишь создают «пустую» связь.
• Так же не помешает проверить наличие лишних ссылок и среди проверки данных(Что такое проверка данных). Как правило связи могут быть в проверке данных с типом Список. Но как их отыскать, если проверка данных распространена на множество ячеек?
  Находим все ячейки с проверкой данных: выделяем одну любую ячейку на листе -вкладка Главная(Home) -группа Редактирование(Editing) —Найти и выделить(Find & Select) —Выделить группу ячеек(Go to Special). Отмечаем Проверка данных(Data validation) —Всех(All). Жмем Ок. После этого можно выделить все эти ячейки каким-либо цветом, чтобы удобнее было потом просматривать. Но такой метод выделит ВСЕ ячейки с проверками данных, а не только ошибочные.
  Конечно, если вариантов кроме как найти руками нет и ячеек немного – просто заходим в проверку данных каждой ячейки(выделяем эту ячейку -вкладка Данные(Data) —Проверка данных(Data validation)) и смотрим, есть ли там проблемная формула со ссылками на другие книги.
  Можно поступить более кардинально – после того как выделили все ячейки с проверкой данных идем на вкладку Данные(Data) —Проверка данных(Data validation) и для всех ячеек в поле Тип данных(Allow) выбираем Любое значение(Any value). Это удалит все формулы из проверки данных всех ячеек.
  Но если ни удаление всех проверок данных, ни проверка каждой ячейки не подходит — я предлагаю коротенький код, который отыщет все такие ссылки быстрее и сэкономит время:

  Option Explicit
  '---------------------------------------------------------------------------------------
  ' Author : The_Prist(Щербаков Дмитрий)
  '          Профессиональная разработка приложений для MS Office любой сложности
  '          Проведение тренингов по MS Excel
  '          https://www.excel-vba.ru
  '          info@excel-vba.ru
  '          WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
  ' Purpose:
  '---------------------------------------------------------------------------------------
  Sub FindErrLink()
      'надо посмотреть в Данные -Изменить связи ссылку на файл-иточник
      'и записать сюда ключевые слова в нижнем регистре(часть имени файла)
      'звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием
      Const sToFndLink$ = "*продажи 2018*"
   
      Dim rr As Range, rc As Range, rres As Range, s$
      'определяем все ячейки с проверкой данных
      On Error Resume Next
      Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
      If rr Is Nothing Then
          MsgBox "На активном листе нет ячеек с проверкой данных", vbInformation, "www.excel-vba.ru"
          Exit Sub
      End If
      On Error GoTo 0
      'проверяем каждую ячейку на предмет наличия связей
      For Each rc In rr
          'на всякий случай пропускаем ошибки - такое тоже может быть
          'но наши связи должны быть без них и они точно отыщутся
          s = ""
          On Error Resume Next
          s = rc.Validation.Formula1
          On Error GoTo 0
          'нашли - собираем все в отдельный диапазон
          If LCase(s) Like sToFndLink Then
              If rres Is Nothing Then
                  Set rres = rc
              Else
                  Set rres = Union(rc, rres)
              End If
          End If
      Next
      'если связь есть - выделяем все ячейки с такими проверками данных
      If Not rres Is Nothing Then
          rres.Select
  '        rres.Interior.Color = vbRed 'если надо выделить еще и цветом
      End If
  End Sub

  Чтобы правильно использовать приведенный код, необходимо скопировать текст кода выше, перейти в редактор VBA(Alt+F11) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего вызвать макросы(Alt+F8 или вкладка Разработчик —Макросы), выбрать FindErrLink и нажать выполнить.
  Есть пара нюансов:

  • Прежде чем искать ненужную связь необходимо определить её ссылку: Данные(Data) -группа Запросы и подключения(Queries & Coonections) —Изменить связи(Edit Links). Запомнить имя файла и записать в этой строке внутри кавычек:
    Const sToFndLink$ = «*продажи 2018*»
    Имя файла можно записать не полностью, все пробелы и другие символы можно заменить звездочкой дабы не ошибиться. Текст внутри кавычек должен быть в нижнем регистре. Например, на картинках выше есть связь с файлом «Продажи 2018.xlsx», но я внутри кода записал «*продажи 2018*» — будет найдена любая связь, в имени которой есть «продажи 2018».
  • Код ищет проверки данных только на активном листе
  • Код только выделяет все найденные ячейки(обычное выделение), он ничего сам не удаляет
  • Если надо подсветить ячейки цветом — достаточно убрать апостроф(‘) перед строкой
    rres.Interior.Color = vbRed ‘если надо выделить еще и цветом

Как правило после описанных выше действий лишних связей остаться не должно. Но если вдруг связи остались и найти Вы их никак не можете или по каким-то причинам разорвать связи не получается(например, лист со связью защищен)- можно пойти совершенно иным путем. Действует этот рецепт только для файлов новых форматов Excel 2007 и выше (если проблема с файлом более старого формата — можно пересохранить в новый формат):

1. Обязательно делаем резервную копию файла, связи в котором никак не хотят разрываться
2. Открываем файл при помощи любого архиватора(WinRAR отлично справляется, но это может быть и другой, работающий с форматом ZIP)
3. В архиве перейти в папку xl -> externalLinks
4. Сколько связей содержится в файле, столько файлов вида externalLink1.xml и будет внутри. Файлы просто пронумерованы и никаких сведений о том, к какому конкретному файлу относится эта связь на поверхности нет. Чтобы узнать какой файл .xml к какой связи относится надо зайти в папку «_rels» и открыть там каждый из имеющихся файлов вида externalLink1.xml.rels. Там и будет содержаться имя файла-источника.
5. Если надо удалить только связь на конкретный файл — удаляем только те externalLink1.xml.rels и externalLink1.xml, которые относятся к нему. Если удалить надо все связи — удаляем все содержимое папки externalLinks
6. Закрываем архив
7. Открываем файл в Excel. Появится сообщение об ошибке вроде «Ошибка в части содержимого в Книге …». Соглашаемся. Появится еще одно окно с перечислением ошибочного содержимого. Нажимаем закрыть.

После этого связи должны быть удалены.
Если и это не помогло — скорее всего «битая» связь связана с ошибкой самого файла и лучшим решением будет перенести все данные в новый файл.

Так же см.:
Найти скрытые связи
Оптимизировать книгу

---

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

---

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

DwMan,в моей практике иногда наблюдалась подобная проблема, с чем это могло быть связано, я так и не понял, списал на очередной глюк Excel.

Для разрыва связей в подобном случае,я поступал следующим образом:
1. Сделать резервную копию файла на котором Вы будете ставить эксперименты
2.Открыть файл при помощи архиватора, я использовал для этих целей 7Zip, можно использовать любой другой
3.В архиве открыть папку xl
4.Далее открыть папку externalLinks
5.В зависимости от того, сколько у Вас ссылок на внешние файлы, в папке будут содержаться определенное количество файлов, у меня к примеру ссылка была на один файл, поэтому у меня в папке был только один файл externalLink1.xml. Если нужно удалить какую то конкретную связь, удалите соответствующий файл.
6. Удалить все имеющиеся файлы в папке externalLinks
7. Закрыть архив
8. Открыть файл Excel, в котором содержались ссылки на другие файлы. В процессе открытия появится сообщение об ошибке «Ошибка в части содержимого в Книге …». Отвечаем Да. После чего отобразится еще одно окно со списком нечитаемого содержимого. Нажимаем закрыть.
9. Проверяем, что на вкладке Данные, кнопка Изменить связи, стала неактивной — соответственно все связи из книги были удалены

Изменено: pinguindell — 13.01.2017 12:17:40

Разрыв связи с внешним ресурсом в Excel

​Смотрите также​​ только в выбранных​ разрывать?​2)_осталась ссылка на​roster,​Dim Wb As​ все книги. А​ быть проблема?​ часть формул оставляя​: AlexTM, вроде этот​TheBestOfTheBest​Если же у​ файл(Ctrl+F3).​ могут получить более​ связи между двумя​ целостным способом.​нажмите кнопку​Примечание:​ ячейках, при этом​KoDeX​ книгу не разорванной​Ну если Вам​

​ Workbook​​ закрывать каждый раз​

• ​Мне нужно сохранить​ только формулы внутри​ (первый — обычный).​: Собственно говоря это​ Вас там не​На крайних случай​ низкий ранг и​ таблицами.​Иногда Excel не удается​Изменить связи​Мы стараемся как​ заменяет все на​: выборочный разрыв связи,​ связи, разорванные связи​ нужно просто данные​Dim n As​ не удобно.​​ копию листа без​​ книги. Делаю все​ Sub Names99() Dim​ правильная работа, а​

• ​ ошибки — то​ можно попробовать создать​ не будут автоматически​Автоматическое обнаружение связей запускается​ определить связь между​.​ можно оперативнее обеспечивать​ значения, кто сможет​

Разрыв связи

1. ​ пример во вложении.​​ остались значениями?​​ то выделите все​​ Variant​​Собственно задача, что​​ связи с оновной​​ это макросом. В​

   

   ​ vName As Variant​​ вы чего ожидали?​​ может имеет смысл​​ новую книгу, перенести​ созданы даже в​ только для мер​

2. ​ таблицами. В этом​​Примечание:​​ вас актуальными справочными​ доработать его с​

   • ​KoDeX​Закрыто. Дубль.​ скопируйте и через​Dim i As​ бы полученный отчет​

   • ​ книгой. При этом​ результате получаю новую​

3. ​ For Each vName​​droZOnE​​ через Ctrl+H найти​

Удаление имени определенной ссылки

​ в неё ТОЛЬКО​ том случае, если​ и не запускается​ случае используйте информацию​ Отсутствие команды​ материалами на вашем​

1. ​ частичным (выборочным) разрывом​​: неужели ни у​​KoDeX​​ специальную вставку…​​ Long​​ не имел связей​​ сделать это нужно​

2. ​ книгу. Но вот​​ In ThisWorkbook.Names vName.Visible​​: Добавляю ссылку на​ по формулам все​

3. ​ ЗНАЧЕНИЯ, без формул,​ связь является действительной.​

4. ​ для вычисляемых полей,​​ из этой статьи​​Изменить связи​

5. ​ языке. Эта страница​​ связи? помогите, очень​​ кого нет никаких​

support.office.com

Устранение неполадок в связях между таблицами

​: Доброго дня. Вот​roster​For Each n​ с книгой из​ МАКРОСОМ!​ в чем проблема.​ = 1 v.Name.Delete​ внешний локальный файл,​ формулы, в которых​ отдельно воссоздав каждый​

​Если алгоритм автоматического обнаружения​ которые используются в​ для устранения ошибок​означает, что файл​ переведена автоматически, поэтому​ надо….​ идей???​ не смог пока​: Мне нужен весь​ In ActiveWorkbook.Names:​ которой его сделали.​Оформляйте коды тегами​

Сообщение. Связи не были обнаружены

​ Обратил внимание что​ Next vName End​ а запрос появляется​ есть ссылки на​ лист(НЕ КОПИРУЯ САМИ​​ предлагает связь, которая​​ метках строк и​ автоматического обнаружения связей. Чтобы​ не содержит связанных​ ее текст может​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ВставитьЗначения2()​vikttur​ найти на «Планете…»​ файл целиком со​On Error Resume​ Поскольку его будут​ (кнопка #)​

• ​ в новой книге​ Sub Sub Remove_Hidden_Names()​ на обновление внешнего​ файл и заменить​ ЛИСТЫ). После этого​ не решает бизнес-задачи,​ столбцов сводной таблицы.​ лучше понять требования​ данных.​ содержать неточности и​Dim ArrLinks As​

• ​: Есть. Но не​ этого, казалось бы​ всеми расчетами и​ Next​ смотреть на другом​gling​ осталась связь с​ ‘ Dimension variables.​ источника данных с​ их на значения?​ постепенно добавлять форматы,​ то необходимо удалить​ Поэтому перед началом​​ и механизмы обнаружения​​В списке​ грамматические ошибки. Для​ Variant​ по теме.​

В сводную таблицу добавлены несвязанные поля, однако сообщение не выдается

​ легкого, и неужели​ сводными.​n.Delete:​ компьютере, где нет​: Возможно в книге​ предыдущей. Если я​ Dim xName As​ адреса ….​k61​ может формулы, но​ ее и создать​ построения сводной таблицы​ связей, см. раздел​Источник​ нас важно, чтобы​Dim i As​​Из правил:​​ никому не нужного​

Отсутствует допустимая связь между таблицами

​Z​Next​ файла оригинала. Каждый​ есть именованные диапазоны.​ сохраняю новую книгу,​ Variant Dim Result​droZOnE​: Здесь, на этом​ после каждого шага​ вручную с использованием​

​ несвязанные таблицы можно​ Связи между таблицами​выберите связь, которую​ эта статья была​ Integer​kodex​ решения следующей задачи​: Поиск по Планете,​Set Wb =​ раз закрывать/открывать и​ Для полного разрыва​ закрываю обе, затем​

При автоматическом обнаружении созданы неверные связи

​ As Variant Dim​: распаковал файл архиватором​ форуме, в примере​ смотреть, не появились​ верного ключевого столбца.​ добавить, однако связи​ в модели данных.​ требуется разорвать.​ вам полезна. Просим​Dim cell As​: Да не вопрос….​ — в сводный​ и​ ActiveWorkbook​ удалять связи после​ связей их тоже​ открываю сохраненную новую​ Vis As Variant​ и поиском нашел​ был макрос Sub​ эти самые ненужные​

​ См.​ не будут видны​На панели уведомлений всегда​Для выделения нескольких связанных​ вас уделить пару​ Range​и все же,​ отчет, а точнее​

​-​

support.office.com

не удаётся разорвать связи в Excel

​WorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)​​ создания отчета -​
​ нужно удалить.​ книгу, то вижу​ ‘ Loop once​
​ ссылку в файле​ Svyazi(). Автора не​ связи.​К началу страницы​ до тех пор,​ автоматически отображается сообщение​ объектов, удерживайте нажатой​ секунд и сообщить,​Dim WorkRng As​ какое-нить решение есть​ предположим в одну​-​If IsArray(WorkbookLinks) Then​ слишком неудобно. А​Stork4ever​ свзяь со старой​ for each name​ xlexternalLinks_relsexternallink4.xml.rels и еще​
​ помню. Поиск ниего​KuklP​Ольга_​ пока поле не​ о необходимости установления​ клавишу CTRL и​ помогла ли она​
​ Range​ частичного (выборочного) разрыва​ ячейку идут данные​- …​For i =​
​ тем кому высылаются​

​ ячейки с ошибками​​Уже все форумы​ область​ поля в область​ объект.​ кнопок внизу страницы.​ String​XXXXXL​ (книга1, книга2, книга3),​

​ остаются списки связей​​Name:=WorkbookLinks(i), _​Кстати. Если после​

​Иногда таблицы, добавляемые в​​ в случае, если​Щелкните элемент​ оригинал (на английском​If TypeName(Selection) <>​ же тему разместил​ ссылку только на​DV​Next i​ на полученном листе​
​ листу довольно проблематично!​ могу разорвать в​

​ is hidden)… If​​ — имеет ссылку​

planetaexcel.ru

Не разрывается связь с внешними источниками данных

​ руки.​​ зависимые. Или пересохранить​
​ файл Excel,в нём​ сводную таблицу, просто​ это поле не​Разорвать​ языке) .​
​ «Range» Then Exit​ у формулистов, предполагаю​ одну из книг?​: Нажмите Ctrl+F3 и​Else​ вообще удалить все​TimSha​ момент работы макроса,​ xName.Visible = True​ на внешний файл​k61​ в разных версиях.​ есть ссылка на​ невозможно соединить с​ связано ни с​.​Важно:​ Sub​ ее нужно снести.​ желательно чтобы это​
​ удалите все ненужные​End If​ данные (т.е. нет​: Очень просто. Пробовали​ когда обе книги​ Then Vis =​
​ — стираем связь​

​: поиск дал!:​​ Но без файла…​ временный документ, который​ другими таблицами. Например,​

​ одним из существующих​​Если ссылка используется определенный​ ​ArrLinks = ThisWorkbook.LinkSources(xlExcelLinks)​у кого какие​ была ссылка на​ имена​

​End Sub​​ ни данных, ни​ открыть — «Найти​ открыты.​ «Visible» Else Vis​ удалена. Либо через​droZOnE​Ольга_​

​ закрепился в связях.​​ две таблицы могут​ в сводной таблице​ имя, имя автоматически​Когда разорвать связь в​If IsEmpty(ArrLinks) Then​ есть соображения по​ книгу, а не​
​qwwwerty​VictorM​ формул), то все​

​ и выделить» -​​Разрыв связей в​ = «Hidden» End​ меню Данные Изменить​: Друзья, добрый день!​: В именах смотрела,там​
​ Временный документ смысловой​ иметь частично совпадающие​ полей. Однако иногда​ не удаляется. Может​
​ исходную книгу внешних​ Exit Sub​ следующему вопросу:​ значение.​: DV, отлично.​:​ равно связи удалить​

​ далее — «Формулы»…​​ маросе делаю так:​ If ‘ …ask​ связи…​Подскажите, пожалуйста, решение​ тьма-тьмущая имен.ссылающихся на​

​ нагрузки, походу, не​​ данные, но не​ связь после уведомления​ потребоваться удалить имя​

​ ссылок, все формулы,​​Set WorkRng =​Условие: В одну​kristina S​Blazhenniy​gling​ нельзя, пока не​Stork4ever​200?’200px’:»+(this.scrollHeight+5)+’px’);»>exist_links = ActiveWorkbook.LinkSources(xlExcelLinks)​ whether or not​Никакого вируса, просто​ проблемы. Excel 2013.​ этот файл. Пробовала​ несёт, ибо был​ иметь логических связей​ обнаружить не удается.​ также, выполнив следующие​ используйте значение из​ Selection.SpecialCells(xlCellTypeFormulas)​ ячейку, допустим B3​: Добрый день! Не​: ни один из​, спасибо. То что​ сохранишь и не​: Развернуть формулы и​If Not IsEmpty(exist_links)​ to delete the​ ссылка на внешний​ Не удается разорвать​ удалять-запуталась через 15​ создан, когда сотрудник​ с другими используемыми​ Это может произойти​ действия:​ поля в исходной​For i =​ идут связи с​ понятно, что Вы​ способов не помог​ нужно!​ закроешь файлы….​ искать ссылки? Данных​ Then​ name. Result =​ файл.​ связь с внешним​ минут.​ заходил оп удалёнке​ таблицами.​ по разным причинам.​

​На вкладке​​ книге преобразуются в​ 1 To UBound(ArrLinks)​ трех книг, при​ спрашиваете, может Вам​

planetaexcel.ru

Как разорвать связи макросом? (Макросы/Sub)

​ кроме​​roster​RAN​ слишком много​For i =​ MsgBox(prompt:=»Delete » &​droZOnE​ источником данных.​Там помимо этих​ на сервер и​Если добавить в сводную​Алгоритм обнаружения связей зависит​Формулы​ свои текущие значения.​FileName = FileNameOnly((CStr(ArrLinks(i))))​ разрыве связи хотя​ поможет настройка для​сохраняете файл как…​: Добрый день!​: Ну и что?​Или я что-то​ LBound(exist_links) To UBound(exist_links)​ Vis & «​: TheBestOfTheBest, проблема глубже​Файл во вложении.​ «вредных» связей есть​ делал там свои​ таблицу таблицу, которую​ от внешнего ключевого​
​в группе​ Например, если разорвать​
​For Each cell​
​ бы одной из​ панели быстрого доступа​
​ тип файла: xlsb​Как удалить не​
​ Чем эта связь​
​ не так понял?​
​' MsgBox exist_links(i)​
​ Name " &​
​ все-таки. в книге​ Файл пустой, имеется​
​ ещё связи, копирование​
​ дела в этом​ нельзя соединить с​ столбца, имя которого​
​Определенные имена​ связь с внешней​
​ In WorkRng​ этих книг, в​ «разорвать связи» Прикрепленные​открыв файл архиватором​ удаляемые связи (старые)​ мешает?​RAN​ActiveWorkbook.BreakLink Name:=exist_links(i), Type:=xlLinkTypeExcelLinks​
​ _ Chr(10) &​ продолжают сидеть какие-то​ только одна внешняя​ только значений приведёт​ файле. И эти​
​ другой таблицей, то​ схоже с именем​
​нажмите кнопку​ ссылкой = сумм​If InStr(1, cell.Formula,​ ячейке В3 остается​ файлы Разорвать связь.jpg​ — удалить папку​
​ с несуществующими книгами?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>xlPasteValues​

​:​​Next​ xName.Name & «?»​ ссылки на внешние​ ссылка (на книгу).​ к убиению связей​

​ временные файлы закрепились​​ обычно автоматическое обнаружение​ первичного ключевого столбца.​Диспетчер имен​ ([бюджет.xls] Годовой! C10:​ FileName) Then cell.Formula​ значение.​

​ (27.53 КБ)​​ xl / externalLinks​Нажимаю разорвать связь​вставляет значения.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Activesheet.Usedrange.Value=Activesheet.Usedrange.Value​

​Else​​ & Chr(10) &​ источники.​ Если её удалить,​​ на нужные документы,​ в связях. Руками​

​ не даст никаких​​ Если имена столбцов​​.​

​ C25), формула СУММ​​ = cell.Value​
​Вопрос: Как разорвать​bedvit​закрываем, открываем, на​ — ничего не​А то, что​Stork4ever​MsgBox «Связей не​
​ _ "Which refers​
​убить файл externallink4.xml​
​ то запроса на​
​ которые обновляются.​ не удаляются через​
​ результатов. В других​ недостаточно похожи, рекомендуется​В диалоговом окне​ заменяется вычисленное значение​Next​ одну (две, …)​: Разорвать связи с​ все отвечаем да​ происходит.​ именованые диапазоны зацепились​: Еще раз уточним…​
​ найдено»​ to: » &​ не помогло, т.к.​ обновление не возникает.​Надеялась,что есть метод​ «Изменить связи».​ случаях по результатам​ открыть окно Power​Диспетчер имен​ — объекты, которые​Next​ связи, при этом​ нужными файлами -​ и т.п​Ivan.kh​ за старую книгу,​
​На листе оригинальной​End If​ Chr(10) & xName.RefersTo,​ слетели другие связи​ При добавлении ссылки​ как то грубо​Пробовала сделать подмену-сделала​ в сводной таблице​ Pivot и вручную​щелкните имя, которое​ могут быть. Кроме​

​End Sub​​ в ячейке В3​ сохранятся нужные данные​XXXXXL​
​:​
​ при осутствии ссылок​
​ книги есть именованные​Все отрабатывает без​ _ Buttons:=vbYesNo) ‘​ в книге​ на внешний файл,​ эту связь удалить,​ пустой документ с​
​ видно, что поля​ создать необходимые связи​
​ нужно изменить.​
​ того поскольку этой​

​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Function FileNameOnly(fname​​ 1)_осталась ссылка на​

​ в значениях, другие​​: Всем доброго дня.​roster,​ на них, никак​ диапазоны. После копирования​​ ошибок, но связь​ If the result​
​копаю дальше. в​ снова появляется запрос​
​ не попортив ничего.​ таким же количеством​
​ не позволяют формировать​ между таблицами.​
​Щелкните имя, чтобы выделить​ действие​
​ As String) As​ книгу не разорванной​
​ (не разорванные) останутся​Условие: В одну​
​А через специальную​
​ ни на что​
​ листа в новую​ не разрывается​
​ is true, then​
​ файле workbook.xml видно,​
​ на обновление с​Guest​
​ листов, в связях​
​ осмысленные вычисления.​
​Типы данных могут не​
​ его.​
​нельзя отменить​
​ String​
​ связи, разорванные связи​


​ на ссылках.​​ ячейку, допустим B3​​ вставку не пробовали​​ не влияет.​ книгу, эти диапазоны​

excelworld.ru

Как удалить не удаляемые связи (старые) с несуществующими книгами

​Делаю тоже самое​​ delete the name.​
​ что присвоено много​ внешнего источника данных.​: Там этих ячеек​
​ написано-ОК,но при следующем​При создании связей алгоритм​ поддерживаться. Если любая​

​Нажмите кнопку​​, рекомендуется сохранить версию​​’ Возвращает имя​​ удалились?;​KoDeX​ идут связи с​

​ вставить только значения???​​И пусть их​ копи/пастятся в виде​ вручную:​ If Result =​ Определенных имен с​ Пробовал пересохранять в​ не меньше тысячи(​ обновлении та же​ автоматического обнаружения создает​ из таблиц, используемых​Удалить​

​ конечной книги в​​ файла fname без​​2)_осталась ссылка на​​: При разрыве одной​ трех книг, при​roster​ болтаются до закрытия.​ значений типа:​

​1. Копирую лист​​ vbYes Then xName.Delete​ пометкой hidden=1 Прикрепленные​ формат 97, при​The_Prist​

​ история.​​ список всех возможных​ в сводной таблице,​
​.​
​ качестве резервной копии.​
​ указания его директории​

​ книгу не разорванной​​ связи остается общее​ разрыве связи хотя​: Дык я не​

​Или​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«J11:J400»).Select​ в новую книгу,​ ‘ Loop to​

​ файлы Снимок.PNG (87.81​​ проверке совместимости сообщает​

​: Ну так удалите​​Начальство жаждет видеть​ связей исходя из​ содержит столбцы только​
​Нажмите кнопку​Если вы используете диапазона​
​Dim temp As​ связи, разорванные связи​ значение в ячейке,​
​ бы одной из​ знаю что скопировать/вставить​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Workbooks(«A»).Sheets(«aaa»).Range(«A1:A10») = Workbooks(«B»).Sheets(«aaa»).Range(«A1:A10»)​

planetaexcel.ru

выборочный (частичный) разрыв связи (Формулы/Formulas)

​Selection.Copy​​ пытаюсь через меню​
​ the next name.​ КБ)​ об имеющейся связи​ все имена, которые​ документ без #ССЫЛКА!,​ значений, содержащихся в​ неподдерживаемых типов данных,​ОК​ внешних данных, параметра​
​ Variant​ остались значениями?​ а я спрашиваю​ этих книг, в​ теперь. Оказалось, что​Stork4ever​Range(«J11:J400»).Select​ разорвать связь. Связь​
​ Next xName End​AlexTM​ в Определенных именах.​ ссылаются на тот​
​ а я не​

excelworld.ru

как разорвать связи в ячейке, но чтобы одна ссылка осталась?

​ таблицах, и ранжирует​​ то связи обнаружить​.​ в запросе могут​If fname =​XXXXXL​ как разорвать одну​ ячейке В3 остается​ накопились за долгую​: Спасибо!​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​ вижу, кнопка разорвать​ Sub​: droZOnE, на микрософте​ При этом при​ файл. Почему нельзя?​ знаю,как эти 2​ возможные связи в​ невозможно. В этом​При импорте нескольких таблиц​ использовать данные из​ «» Then FileNameOnly​

​: кто с макросом​​ (две…, три…) связи,​ значение.​ историю, версия файла​gling​ SkipBlanks _:=False, Transpose:=False​ связь активна, но​Юрий М​ есть макрос для​

​ открытии Диспетчера имен​​ У Вас формулы​ связи разорвать(​ соответствии с их​ случае необходимо создать​ Excel пытается обнаружить​ другой книги. Вы​

​ = «»: Exit​​ на «ты»?, сможете​ но при этом​Вопрос: Как разорвать​ 39-я, подверсий было​: Использовал такой макрос​Остаются только формулы​ при нажатии связь​: droZOnE, ознакомьтесь с​ удаления всех имет​ — имена отсутствуют.​ выдают #ССЫЛКА! верно?​Помогите!​

​ вероятностью. Затем Excel создает​​ связи между активными​ и определить связи​

​ можете обнаружить и​​ Function​ доработать его под​

​ чтобы другая, допустим​​ одну (две, …)​ в десятки раз​ при создании новой​

​ подведения итогов, которые​​ не разрывается.​ Правилами и поменяйте​
​ — скрытых, нескрытых,​

​Все это похоже​​ Попробуйте так:​
​The_Prist​ только наиболее вероятную​ таблицами в сводной​ между этими таблицами,​

planetaexcel.ru

выборочный (частичный) разрыв связи (Макросы/Sub)

​ удалить любой из​​temp = Split(fname,​ мои нужды, для​ четвертая связь осталась​ связи, при этом​ больше. Связи, которые​
​ книги из листов.​ уже не имеют​2. Удаляю на​
​ в своём профиле​ неудаляемых… Поищите.​ на какой-то вирус.​F5-Выделить-Формулы-Ошибки​: Нужен файл. Без​ связь. Поэтому, если​ таблице вручную в​ поэтому нет необходимости​ этих типов связей.​
​ Application.PathSeparator)​ частичного разрыва связей?​ ссылкой, а остальные​ в ячейке В3​ якобы есть просто​ Посмотрите может пригодится.​ именованных диапазонов. Но​ новом листе все​
​ отображаемое имя. Спасибо!​TheBestOfTheBest​ Новые книги заражаются​Будут выделены ячейки​

​ этого вряд ли​​ таблицы содержат несколько​ диалоговом окне​ создавать связи вручную​На вкладке​FileNameOnly = temp(UBound(temp))​

​XXXXXL​​ были значениями либо​ 1)_осталась ссылка на​ не удаляются. Не​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Связи() ‘разорвать все​ связь с книгой​ данные и формулы.​Stork4ever​: Я такого в​ при добавлении ссылки​ с ошибками. Очистите​ поймем причину. Посмотрите,​
​ столбцов, которые могут​
​Создание связи​ или создавать сложные​
​Данные​End Function​
​: вот еще один​ вообще их небыло.​
​ книгу не разорванной​ понимаю почему.​
​ связи​ не могу порвать,​
​ Связь все равно​: Из существующей книги​
​ выложенном файле не​ на файл с​ их - все​
​ нет в именах​
​ использоваться в качестве​. Дополнительные сведения см.​
​ обходные решения, чтобы​в группе​
​Коды надо оформлять​ макрос нашел, но​
​kristina S​
​ связи, разорванные связи​Ivan.kh​
​Dim WorkbookLinks As​ пока не сохраню​ разорвать не получается!!!​
​ копирую лист в​
​ вижу (Ex 2010)​
​ таким глюком.​
​ равно вычислений они​ тех, что ссылаются​ ключей, некоторые связи​
​ в разделе Создание​ работать с данными​Подключения​
​ тегами (кнопка #)​ он разрывает связи​
​: непонятно, выборочно связи​ удалились?;​:​ Variant​
​ и не закрою​В чем может​
​ новую книгу. Убираю​
​AlexTM​
​Скрины приложены.​ не сделают.​

excelworld.ru

​ на тот самый​

Если книга содержит ссылку на данные в книге или другом файле, перемещенного в другое место, вы можете исправить эту ссылку, обновив путь к исходный файл. Если вам не удалось найти документ, на который вы изначально ссылались, или нет доступа к нему, можно отключить в Excel обновление ссылки, отключив автоматическое обновление или удалив ссылку.

Важно: 
связанный объект гиперссылки — это не одно и то же. Следующая процедура не позволит исправить неправиленные гиперссылки. Дополнительные информацию о гиперссылках см. в теме «Создание и изменение гиперссылки».

Исправление неправиленной ссылки

Внимание: Это действие нельзя отменить. Перед началом этой процедуры может потребоваться сохранить резервную копию книги.

1. Откройте книгу, которая содержит неверную связь.

2. На вкладке «Данные» нажмите кнопку «Изменить связи».

   Команда «Изменить связи» недоступна, если книга не содержит ссылок.

3. В поле «Исходный файл» выберите неправиленную ссылку, которую вы хотите исправить.

   Примечание: Чтобы исправить несколько ссылок, щелкните каждую из , удерживая нажатой .

4. Выберите команду Смена источника.

5. Перейдите к расположению файла, содержащего связанные данные.

6. Выберите новый исходный файл и нажмите кнопку «Изменить источник».

7. Нажмите кнопку Закрыть.

Удаление неявной ссылки

При разрыве связи все формулы, которые ссылаются на исходный файл, преобразуются в их текущее значение. Например, если формула =СУММ([Budget.xls]Годовой! C10:C25) — 45, после того как связь не будет нарушена, формула будет преобразована в 45.

1. Откройте книгу, которая содержит неверную ссылку.

2. На вкладке «Данные» нажмите кнопку «Изменить связи».

   Команда «Изменить связи» недоступна, если книга не содержит ссылок.

3. В поле «Исходный файл» выберите ненужную ссылку, которую нужно удалить.

   Примечание: Чтобы удалить несколько ссылок, щелкните каждую из , удерживая нажатой кнопку мыши.

4. Щелкните элемент Разорвать.

5. Нажмите кнопку Закрыть.

Важно: 
связанный объект гиперссылки — это не одно и то же. Следующая процедура не позволит исправить неправиленные гиперссылки. Подробнее о гиперссылках: создание, изменение и удаление гиперссылки

Исправление неправиленной ссылки

Внимание: Это действие нельзя отменить. Перед началом этой процедуры может потребоваться сохранить резервную копию книги.

1. Откройте книгу, которая содержит неверную связь.

2. В меню Правка выберите пункт Связи.

   Если книга не содержит ссылок, команда «Ссылки» недоступна.

3. В поле «Исходный файл» щелкните неправиленную ссылку, которую нужно исправить.

   Примечание: Чтобы исправить несколько ссылок, щелкните каждую из , удерживая нажатой .

4. Выберите команду Смена источника.

5. Выполните одно из следующих действий:

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

Отключение автоматического обновления связанных данных

1. Откройте книгу, которая содержит неверную связь.

2. В меню Правка выберите пункт Связи.

   Если книга не содержит ссылок, команда «Ссылки» недоступна.

3. В поле «Исходный файл» щелкните неправиленную ссылку, которую нужно исправить.

   Примечание: Чтобы исправить несколько ссылок, щелкните каждую из , удерживая нажатой .

4. Нажмите Вручную.

Удаление неявной ссылки

При разрыве связи все формулы, ссылаясь на исходный файл, преобразуются в их текущее значение. Например, если формула =СУММ([Budget.xls]Годовой! C10:C25) — 45, после того как связь не будет нарушена, формула будет преобразована в 45.

1. Откройте книгу, которая содержит неверную связь.

2. В меню Правка выберите пункт Связи.

   Если книга не содержит ссылок, команда «Ссылки» недоступна.

3. В поле «Исходный файл» щелкните ненужную ссылку, которую нужно удалить.

   Примечание: Чтобы удалить несколько ссылок, щелкните каждую из , удерживая нажатой кнопку мыши.

4. Щелкните элемент Разорвать.

См. также

Импорт данных из файла в формате CSV, HTML или текстового файла