打开链接的支持文档。
expression.OpenLinks(Name, ReadOnly, Type)
expression 必需。该表达式返回“应用于”列表中的一个对象。
Name String 类型,必需。Microsoft Excel 链接或 DDE/OLE 链接的名称,与 LinkSources 方法返回的一样。
ReadOnly Variant 类型,可选。如果该值为 True,则以只读方式打开文档。默认值为 False。
Type XlLink 类型,可选。链接类型。
XlLink 可为以下 XlLink 常量之一。 |
xlExcelLinks |
xlOLELinks (also handles DDE links)
xlPublishers xlSubscribers |
本示例打开当前活动工作簿中的 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