Поделиться через

Workbook.LinkSources Метод (2007 System)

  • Статья

Обновлен: Ноябрь 2007

Возвращает массив Array ссылок в книге.

Пространство имен:  Microsoft.Office.Tools.Excel
Сборка:  Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Function LinkSources ( _
    Type As Object _
) As Object
'Применение
Dim instance As Workbook
Dim Type As Object
Dim returnValue As Object

returnValue = instance.LinkSources(Type)

public Object LinkSources(
    Object Type
)

Параметры

  • Type
    Тип: System.Object
    Одно из значений XlLink, указывающее тип возвращаемых ссылок.

Возвращаемое значение

Тип: System.Object
Массив Array имен ссылок в книге; значение nullссылка null (Nothing в Visual Basic), если книга не содержит ссылок указанного типа Type.

Заметки

Имена в возвращенном массиве Array — это имена документов, изданий или серверов DDE или OLE, на которые существуют ссылки. Формат массива — одномерный массив для всех типов, за исключением издателя и подписчика. Возвращенные строки содержат имя источника ссылки в соответствующей нотации для типа ссылки. Например, ссылки DDE используют синтаксис "Server|Document!Item".

Для ссылок издателя и подписчика возвращенный массив — двухмерный. Первый столбец массива содержит имена изданий, второй — ссылки изданий в виде текста.

Необязательные параметры

Сведения о необязательных параметрах см. в разделе Общие сведения о необязательных параметрах в решениях Office.

Примеры

В следующем примере кода добавляется внешняя ссылка Excel на текущую книгу и с помощью метода LinkSources возвращается массив имен всех ссылок Excel в книге. В примере затем вызывается метод OpenLinks для открытия книги, на которую имеется ссылка в режиме "только для чтения".

В этом примере демонстрируется настройка уровня документа.

Private Sub WorkbookLinkSources()
    Globals.Sheet1.Range("A1").Value2 = _
        "='C:\[Book2.xls]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", missing].Value2 =
        @"='C:\[Book2.xls]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);
    }
}

Разрешения

См. также

Ссылки

Workbook Класс

Workbook - члены

Microsoft.Office.Tools.Excel - пространство имен