Workbook.OpenLinks Method (Excel)

Opens the supporting documents for a link or links.


expression. OpenLinks( _Name_ , _ReadOnly_ , _Type_ )

expression A variable that represents a Workbook object.


Name Required/Optional Data Type Description
Name Required String The name of the Microsoft Excel or DDE/OLE link, as returned from the LinkSources method.
ReadOnly Optional Variant True to open documents as read-only. The default value is False .
Type Optional Variant One of the constants of XlLink that specifies the link type.


This example opens OLE link one in the active workbook.

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

This example opens all supporting Microsoft Excel documents for the active workbook.

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 
 MsgBox "The active workbook contains no external links." 
 End If 
End Sub

See also

Workbook Object