Excel VBA教程:OpenLinks方法

打开链接的支持文档。

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

上页:Excel VBA教程:OpenDatabase方法 下页:Excel VBA教程:OpenText方法

Excel VBA教程:OpenLinks方法

Excel VBA教程:OpenText方法 Excel VBA教程:OpenXML方法
Excel VBA教程:Parse方法 Excel VBA教程:Paste方法
Excel VBA教程:PasteSpecial方法 Excel VBA教程:Patterned方法
Excel VBA教程:PickUp方法 Excel VBA教程:PieGroups方法
Excel VBA教程:PivotCache方法 Excel VBA教程:PivotCaches方法
Excel VBA教程:PivotFields方法 Excel VBA教程:PivotItems方法
Excel VBA教程:PivotSelect方法 Excel VBA教程:PivotTables方法
Excel VBA教程:PivotTableWizard方法 Excel VBA教程:Play方法
Excel VBA教程:Points方法 Excel VBA教程:PointsToScreenPixelsX方法
Excel VBA教程:PointsToScreenPixelsY方法 Excel VBA教程:Post方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号