Workbook.OpenLinks Method

Syntax

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.

Example

This example opens OLE link one in the active workbook.

Visual Basic for Applications
`linkArray = ActiveWorkbook.LinkSources(xlOLELinks) ActiveWorkbook.OpenLinks linkArray(1)`

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

Visual Basic for Applications

Visual Basic for Applications
`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`

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

open open links openlinks openlinks method

Opens the supporting documents for a link or links.

See also: