Workbook.OpenLinks-Methode (Excel)Workbook.OpenLinks method (Excel)

Öffnet die benötigten Dokumente für eine oder mehrere Verknüpfungen.Opens the supporting documents for a link or links.

SyntaxSyntax

Ausdruck.expression. OpenLinks( _Name_ , _ReadOnly_ , _Type_ )OpenLinks( _Name_ , _ReadOnly_ , _Type_ )

Ausdruck Eine Variable, die ein Workbook-Objekt darstellt.expression A variable that represents a Workbook object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
NameName ErforderlichRequired StringString Der Name der Microsoft Excel- oder DDE/OLE-Verknüpfung, wie er von der LinkSources -Methode zurückgegeben wird.The name of the Microsoft Excel or DDE/OLE link, as returned from the LinkSources method.
ReadOnlyReadOnly OptionalOptional VariantVariant True zum Öffnen von Dokumenten im schreibgeschützten Modus.True to open documents as read-only. Der Standardwert ist False.The default value is False.
TypType OptionalOptional VariantVariant Eine der Konstanten von XlLink, wodurch der Verknüpfungstyp angegeben wird.One of the constants of xlLink that specifies the link type.

BeispielExample

In diesem Beispiel wird die erste OLE-Verknüpfung in der aktiven Arbeitsmappe geöffnet.This example opens OLE link one in the active workbook.

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

In diesem Beispiel werden alle verknüpften Microsoft Excel-Dokumente der aktiven Arbeitsmappe geöffnet.This example opens all supporting Microsoft Excel documents for the active workbook.

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

Siehe auchSee also

Workbook-ObjektWorkbook Object