Число сообщений: 92
17.02.2010, 12:21

Добрый день! Помогите, пожалуйста, с проблемкой: когда я пытаюсь разорвать связи со всеми книгами, то выскакивает ошибка:

Run-time error ‘1004’:
Method ‘BreakLink’ of object’_Workboor’ failed

И разрывается связь только с 5 файлами из 10. Можно это как-нибудь победить?
Файл приложить не могу, одно могу сказать – работаю по сети и все связанные файлы тоже в сети.
Заранее благодарна за ответ

Число сообщений: 114
25.02.2010, 10:16

Возможно проблема в том, что файл не был полностью обновлен при открытии. Если связь не активна (не была обновлена), то могут быть трудности с ее разрывом. Поэтому советую еще раз открыть файл, обновить все (!) связи и попробовать их затем удалить.
Также советую глянуть в окно Правка-Связи, где и хранится список текущих связей вашего файла с внешним миром.

Число сообщений: 92
26.02.2010, 09:58

Николай, спасибо за ответ. Я как раз в окне «Правка-Связи» и обнаружила, что связи разорвались только частично ))). К сожалению, обновить все связи в моем случае далеко не всегда возможно – часто дочерние предприятия присылают только итоговый файл, без тех, на который он ссылается. Я поняла причину, еще раз спасибо.

Число сообщений: 415
04.03.2010, 12:24

Часть ссылок на другие книги может не удаляться, потому что ссылки заложены в Именах.
Вставьте чистый лист в Вашу книгу, нажмите F3 - все имена. Вставится перечень всех имен с адресами. Скорее всего, часть из них - из внешних книг.
Удалить ненужные имена можно в меню Вставка-Имена-Присвоить.
_______________________
Ученые доказали, что утверждения, начинающиеся со фразы "Ученые доказали", никогда не доказывались учеными.

Число сообщений: 12
12.05.2010, 14:31

Добрый день! У меня та-же проблема, причём в файле показывает, что все ссылки разорваны, но ошибка останавливает макрос. Имена в файле отсутствуют...
Может что-то в коде я напутал (хотя в других файлах работает)
код такой:
Application.DisplayAlerts = False
Sheets(Array("Âäîâè÷åíêî Ä", "Æîâìèð Â", "Êëèâîëàïîâ À")).Select
Sheets("Êëèâîëàïîâ À").Activate
Sheets(Array("Âäîâè÷åíêî Ä", "Æîâìèð Â", "Êëèâîëàïîâ À")).Copy
ChDir "\\Server\Àíàëèç ïðîäàæ\Ïî÷òà"
ActiveWorkbook.SaveAs Filename:= _
"\\Server\1.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Dim iLinks As Variant, i&
iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(iLinks) Then
For i = LBound(iLinks) To UBound(iLinks)
ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
Next i
End If
ActiveWorkbook.Save
ActiveWindow.Close
Sheets(Array("Ïýäóðàðó Þ", "Äàáèæà Ñ")).Select
Sheets("Äàáèæà Ñ").Activate
Sheets(Array("Ïýäóðàðó Þ", "Äàáèæà Ñ")).Copy
ActiveWorkbook.SaveAs Filename:= _
"\\Server\2.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(iLinks) Then
For i = LBound(iLinks) To UBound(iLinks)
ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
Next i
End If
ActiveWorkbook.Save
ActiveWindow.Close

Посоветуйте, пожалуйста!

Число сообщений: 12
12.05.2010, 14:34

Извините за бардак в предыдущем сообщении - имена листов написаны киррилицей, но это наверно не столь важно?