Método Workbook.OpenLinks (Excel)

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

Sintaxe

expressão. OpenLinks (Name, ReadOnly, Type)

Expressão Uma variável que representa um objeto Workbook .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome do link Microsoft Excel ou DDE/OLE, conforme retornado do método LinkSources .
ReadOnly	Opcional	Variantes	True para abrir documentos como somente leitura. O valor padrão é False.
Type	Opcional	Variantes	Uma das constantes do 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.