Workbook.OpenLinks method (Excel) (Método Workbook.OpenLinks [Excel])

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

Sintaxe

expressão. OpenLinks (Nome, LeituraOnly, Tipo)

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

Parâmetros

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

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.