Workbook.OpenLinks-Methode (Excel)
Öffnet die benötigten Dokumente für eine oder mehrere Verknüpfungen.
Ausdruck. OpenLinks (Name, ReadOnly, Type)
expression Eine Variable, die ein Workbook-Objekt darstellt.
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. |
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
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.