Workbook.OpenLinks 方法 (Excel)

打开链接的支持文档。

语法

表达式。OpenLinks (Name、 ReadOnly、 Type)

表达 一个代表 Workbook 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	字符串	从 LinkSources 方法返回的 Microsoft Excel 或 DDE/OLE 链接的名称。
ReadOnly	可选	Variant	如果为 True，则以只读形式打开文档。 默认值为 False。
Type	可选	Variant	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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。