返回工作簿中链接的数组。数组中的名称为被链接的文档名、公告板文章名或者 DDE 或 OLE 服务器名。如果工作簿中无链接,本方法返回 Empty。Variant 类型。
expression.LinkSources(Type)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Type XlLink 类型,可选。要返回的链接的类型。
XlLink 可为以下 XlLink 常量之一。 |
xlExcelLinks |
xlOLELinks (也可处理 DDE 链接)
xlPublishers xlSubscribers |
如果链接类型不是发布者或订阅者,则返回的数组的格式为一维数组。所返回的字符串包含链接源的名称,以与该类型的链接的相应记号表示。例如,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