LinkSources 方法

       

返回工作簿中链接的数组。数组中的名称为被链接的文档名、公告板文章名或者 DDE 或 OLE 服务器名。如果工作簿中无链接,本方法返回 EmptyVariant 类型。

expression.LinkSources(Type)

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

Type  XlLink 类型,可选。要返回的链接的类型。

说明

如果链接类型不是发布者或订阅者,则返回的数组的格式为一维数组。所返回的字符串包含链接源的名称,以与该类型的链接的相应记号表示。例如,DDE 链接将使用“Server|Document!Item”语法。

对于发布者或订阅者,返回的数组是二维的。数组的第一列包含公告板文章的名称,第二列以文字的形式给出对公告板文章的引用。

示例

本示例显示活动工作簿中 OLE 和 DDE 链接的列表。本方法应在包含一个或多个链接 Word 对象的工作簿中运行。

aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If