VBAのOpenLinksメソッド

こちらでは、エクセルVBAのOpenLinksメソッドの解説になります。

メソッドとは、オブジェクトを操作する命令文のことでオブジェクトの動作になります。メソッドを利用するにはオブジェクト名とメソッド名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.メソッド名

OpenLinksメソッド

OpenLinksメソッドは、リンクの参照元文書を開きます。

キーワード	省略	説明
構文	expression.OpenLinks(Name, ReadOnly, Type)
expression	×	必ず指定します。対象となるオブジェクトへの参照を返すオブジェクト式を指定します。
Name	×	必ず指定します。文字列型 (String) の値を使用します。LinkSources メソッドの返す名前を使って、Excel または DDE/OLE リンクの名前を指定します。複数のリンクを指定するには、配列を使います。
Name	×	省略可能です。バリアント型 (Variant) の値を使用します。文書を読み込み専用として開くときは、True を指定します。この引数を省略すると、既定値の False になります。
Name	×	省略可能です。XlLink クラスの定数を使用します。リンクの種類を指定します。

次の使用例は、作業中のブックにある OLE リンク 1 のリンク元を開きます。


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 "作業中のブックに外部リンクは含まれていません。"
    End If
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。