次の方法で共有

Workbook.OpenLinks メソッド (Excel)

リンクの参照元文書を開きます。

構文

式。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 のサポートおよびフィードバックを参照してください。