リンクの参照元文書を開きます。
構文
式。OpenLinks (名前、 ReadOnly、 Type)
式Workbook オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 名前 | 必須 | String | LinkSources メソッドから返される Microsoft Excel または DDE/OLE リンクの名前。 |
| ReadOnly | 省略可能 | バリアント型 (Variant) | 文書を読み込み専用として開くときは、 True を指定します。 既定値は False です。 |
| Type | 省略可能 | バリアント型 | リンクの種類を指定する XlLink の定数の 1 つ。 |
例
次の使用例は、作業中のブックにある OLE リンク 1 のリンク元を開きます。
linkArray = ActiveWorkbook.LinkSources(xlOLELinks)
ActiveWorkbook.OpenLinks linkArray(1)
次の使用例は、作業中のブックのすべての 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 のサポートおよびフィードバックを参照してください。