Excel) (Workbook.OpenLinks 方法

會開啟連結的支援文件。

語法

運算式。OpenLinks (Name、 ReadOnly、 Type)

表達 代表 Workbook 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Name	必要	String	從 LinkSources 方法傳回的 Microsoft Excel 或 DDE/OLE 連結名稱。
ReadOnly	選用	Variant	若為 True，以唯讀模式開啟文件。 預設值為 False。
Type	選用	Variant	其中一個 XlLink 常數，指定連結類型。

範例

本範例會開啟使用中活頁簿的第一個 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。