Auf Englisch lesen

Freigeben über


Workbook.OpenLinks-Methode (Excel)

Öffnet die benötigten Dokumente für eine oder mehrere Verknüpfungen.

Syntax

Ausdruck. OpenLinks (Name, ReadOnly, Type)

expression Eine Variable, die ein Workbook-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Erforderlich String Der Name des Microsoft Excel- oder DDE/OLE-Links, wie er von der LinkSources-Methode zurückgegeben wird.
ReadOnly Optional Variant Beim Wert True werden die Dokumente schreibgeschützt geöffnet. Der Standardwert ist False.
Typ Optional Variant Eine der Konstanten von XlLink , die den Linktyp angibt.

Beispiel

In diesem Beispiel wird die erste OLE-Verknüpfung in der aktiven Arbeitsmappe geöffnet.

linkArray = ActiveWorkbook.LinkSources(xlOLELinks) 
ActiveWorkbook.OpenLinks linkArray(1)

In diesem Beispiel werden alle verknüpften Microsoft Excel-Dokumente der aktiven Arbeitsmappe geöffnet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.