Partager via


WorkbookBase.LinkSources, méthode

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

Voir aussi

Référence

WorkbookBase Classe

Microsoft.Office.Tools.Excel, espace de noms