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.

Parameters

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

Show:
© 2014 Microsoft