Метод Workbook.OpenLinks (Excel)

Открывает вспомогательные документы для ссылки или ссылок.

Синтаксис

expression. OpenLinks (Name, ReadOnly, Type)

Выражение Переменная, представляющая объект Workbook .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя ссылки Microsoft Excel или DDE/OLE, возвращенное методом LinkSources .
ReadOnly	Необязательно устанавливать.	Variant	Значение true , чтобы открывать документы только для чтения. Значение по умолчанию — False.
Type	Необязательный	Variant	Одна из констант XlLink , задающая тип ссылки.

Пример

В этом примере открывается ссылка OLE в активной книге.

linkArray = ActiveWorkbook.LinkSources(xlOLELinks) 
ActiveWorkbook.OpenLinks linkArray(1)

В этом примере открываются все вспомогательные документы Microsoft Excel для активной книги.

Sub OpenAllLinks() 
 Dim arLinks As Variant 
 Dim intIndex As Integer 
 arLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
 
 If Not IsEmpty(arLinks) Then 
 For intIndex = LBound(arLinks) To UBound(arLinks) 
 ActiveWorkbook.OpenLinks arLinks(intIndex) 
 Next intIndex 
 Else 
 MsgBox "The active workbook contains no external links." 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.