Método WorkbookBase.LinkInfo

Artigo
08/01/2011

Obtém o status de data e a atualização do link.

Namespace: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel.v4.0.Utilities (em Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Sintaxe

'Declaração
Public Function LinkInfo ( _
    name As String, _
    linkInfoArgument As XlLinkInfo, _
    type As Object, _
    editionRef As Object _
) As Object

public Object LinkInfo(
    string name,
    XlLinkInfo linkInfoArgument,
    Object type,
    Object editionRef
)

Parâmetros

name
Tipo: System.String
O nome do link.

linkInfoArgument
Tipo: Microsoft.Office.Interop.Excel.XlLinkInfo
Dentre as XlLinkInfo valores que especifica o tipo de informação de retorno.

type
Tipo: System.Object
Dentre as XlLinkInfoType valores que especifica o tipo de link para retornar o loop for de informações

editionRef
Tipo: System.Object
Se o link é uma edição, este parâmetro especifica a referência da edição como uma seqüência em estilo L1C1.EditionRefé necessário se houver mais de uma editora ou assinante com o mesmo nome na pasta de trabalho.

Valor de retorno

Tipo: System.Object
Um valor que indica as informações sobre o link.Se LinkInfoArgument é xlUpdateState, esse método retorna 1 se o link atualizações automaticamente ou 2 se o link deve ser atualizado manualmente.

Comentários

Optional Parameters

Para obter informações sobre os parâmetros opcionais, consulte Parâmetros opcionais em soluções do Office.

Exemplos

O exemplo de código a seguir usa obtém a coleção de DDE/OLE links em uma pasta de trabalho atual e usa o LinkInfo método para determinar se ou não cada vínculo DDE/OLE atualizações automaticamente ou manualmente.

Este exemplo é para uma personalização em nível de documento.

Private Sub WorkbookLinkInfo()
    ' Get the collection of DDE/OLE links in the workbook.
    Dim Links As Array = _
        CType(Me.LinkSources(Excel.XlLink.xlOLELinks),  _
        Array)

    ' If there are DDE/OLE links, then display how each link
    ' updates.
    If Links IsNot Nothing Then
        Dim i As Integer
        For i = 1 To Links.Length
            Dim UpdateValue As Integer = Me.LinkInfo(Links(i), _
                Excel.XlLinkInfo.xlUpdateState, _
                Excel.XlLinkInfoType.xlLinkInfoOLELinks)

            If UpdateValue = 1 Then
                MsgBox(Links(i) & " link updates automatically.")
            ElseIf UpdateValue = 2 Then
                MsgBox(Links(i) & " link updates manually.")
            End If
        Next i
    Else
        MsgBox("The workbook contains no DDE/OLE links.")
    End If
End Sub

private void WorkbookLinkInfo()
{
    // Get the collection of DDE/OLE links in the workbook.
    Array links = (Array)this.LinkSources(Excel.XlLink.xlOLELinks);

    // If there are DDE/OLE links, then display how each link
    // updates.
    if (links != null)
    {
        for (int i = 1; i <= links.Length; i++)
        {
            string linkName = (string)links.GetValue(i);
            int updateValue = (int)this.LinkInfo(linkName,
                Excel.XlLinkInfo.xlUpdateState,
                Excel.XlLinkInfoType.xlLinkInfoOLELinks,
                missing);

            if (updateValue == 1)
            {
                MessageBox.Show(linkName + " link updates automatically.");
            }
            else if (updateValue == 2)
            {
                MessageBox.Show(linkName + " link updates manually.");
            }
        }
    }
    else
    {
        MessageBox.Show("The workbook contains no DDE/OLE links.");
    }
}

Segurança do .NET Framework

Confiança total para o chamador imediato. O membro não pode ser usado por código parcialmente confiável. Para obter mais informações, consulte Usando bibliotecas de código parcialmente confiáveis.

Consulte também

Referência

WorkbookBase Classe

Namespace Microsoft.Office.Tools.Excel

Compartilhar via