Método Workbook.OpenLinks (Excel)

Abre los documentos auxiliares de uno o más vínculos.

Sintaxis

expresión. OpenLinks (Name, ReadOnly, Type)

expresión Variable que representa un objeto Workbook .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Name	Obligatorio	String	Nombre del vínculo de Microsoft Excel o DDE/OLE, como se devuelve desde el método LinkSources .
ReadOnly	Opcional	Variant	True para que los documentos se abran como de sólo lectura. El valor predeterminado es False.
Type	Opcional	Variant	Una de las constantes de XlLink que especifica el tipo de vínculo.

Ejemplo

En este ejemplo se abre el vínculo OLE uno del libro activo.

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

En este ejemplo se abren todos los documentos de apoyo de Microsoft Excel para el libro activo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.