OpenLinks 方法

       

打开链接的支持文档。

expression.OpenLinks(Name, ReadOnly, Type)

expression   必需。该表达式返回“应用于”列表中的一个对象。

Name   String 类型,必需。Microsoft Excel 链接或 DDE/OLE 链接的名称,与 LinkSources 方法返回的一样。

ReadOnly   Variant 类型,可选。如果该值为 True,则以只读方式打开文档。默认值为 False

Type   XlLink 类型,可选。链接类型。

示例

本示例打开当前活动工作簿中的 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