OpenLinks 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

OpenLinks 方法

发布于 2019-08-07 字数 1442 浏览 927 评论 0

打开链接的支持文档。


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

上一篇:OpenDatabase 方法

下一篇:OpenText 方法

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!