WorkbookBase.LinkSources, méthode

Article
05/16/2013

Retourne un Array de liaisons dans le classeur.

Espace de noms : Microsoft.Office.Tools.Excel
Assembly : Microsoft.Office.Tools.Excel.v4.0.Utilities (dans Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Syntaxe

'Déclaration
Public Function LinkSources ( _
    type As Object _
) As Object

public Object LinkSources(
    Object type
)

Paramètres

type
Type : System.Object
Une des valeurs XlLink qui spécifie le type de liaison à retourner.

Valeur de retour

Type : System.Object
Un Array de noms de liaisons dans le classeur ; nullune référence null (Nothing en Visual Basic) si le classeur ne contient pas toutes les liaisons du Typespécifié.

Notes

Les noms dans le Array retourné sont les noms des documents liés, des éditions ou des serveurs DDE ou OLE.Le format du tableau est unidimensionnel pour tous les types sauf éditeur et abonné.Les chaînes retournées contiennent le nom de la source de la liaison, dans la notation appropriée pour le type de liaison.Par exemple, les liaisons DDE utilisent la syntaxe "Serveur|Document!Élément".

Pour les liaisons éditeur et abonné, le tableau retourné est à deux dimensions.La première colonne du tableau contient les noms de l'édition ; la deuxième colonne contient les références des éditions sous forme de texte.

Paramètres optionnels

Pour plus d'informations sur les paramètres optionnels, consultez Paramètres optionnels dans les solutions Office.

Exemples

L'exemple de code suivant ajoute une liaison Excel externe au classeur actif et obtient un tableau des noms de toutes les liaisons Excel dans le classeur en utilisant la méthode LinkSources.L'exemple utilise ensuite la méthode OpenLinks pour ouvrir chaque classeur lié en lecture seule.

Cet exemple illustre une personnalisation au niveau du document.

Private Sub WorkbookLinkSources()
    Globals.Sheet1.Range("A1").Value2 = _
        "='C:\[Book2.xlsx]Sheet1'!R2C2"
    Dim links As Array = _
        CType(Me.LinkSources(Excel.XlLink.xlExcelLinks),  _
        Array)

    Dim i As Integer
    For i = 1 To links.Length
        Me.OpenLinks(links(i), True, Excel.XlLink.xlExcelLinks)
    Next i
End Sub

private void WorkbookLinkSources()
{
    Globals.Sheet1.Range["A1"].Value2 =
        @"='C:\[Book2.xlsx]Sheet1'!R2C2";
    Array links = (Array)this.LinkSources(Excel.XlLink.xlExcelLinks);

    for (int i = 1; i <= links.Length; i++)
    {
        this.OpenLinks((string)links.GetValue(i), true,
            Excel.XlLink.xlExcelLinks);
    }
}

Sécurité .NET Framework

Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

WorkbookBase Classe

Microsoft.Office.Tools.Excel, espace de noms

Partager via