Workbook.OpenLinks Method (Excel)
Opens the supporting documents for a link or links.
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.
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