Método Workbook.OpenLinks (Excel)

Abre os documentos de suporte de um ou mais vínculos.

Sintaxe

mais simples. OpenLinks (Name, ReadOnly, Type)

expressão Uma variável que representa um objeto de pasta de trabalho .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome do Microsoft Excel ou link DDE/OLE, conforme retornado do método LinkSources .
ReadOnly	Opcional	Variant	True para abrir documentos como somente leitura. O valor padrão é False.
Type	Opcional	Variant	Uma das constantes de XlLink que especifica o tipo de link.

Exemplo

Este exemplo abre o vínculo OLE um da pasta de trabalho ativa.

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

Este exemplo abre todos os documentos suportados pelo Microsoft Excel para a pasta de trabalho ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.