通过

WorkbookBase.LinkSources 方法

  • 项目

返回工作簿中的链接的 Array。

命名空间：  Microsoft.Office.Tools.Excel
程序集：  Microsoft.Office.Tools.Excel.v4.0.Utilities（在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中）

语法

声明
Public Function LinkSources ( _
    type As Object _
) As Object

public Object LinkSources(
    Object type
)

参数

返回值

类型：System.Object
工作簿中的链接名称的 Array；如果工作簿不包含指定的 Type 的任何链接，则为 nullnull 引用（在 Visual Basic 中为 Nothing）。

备注

返回的 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);
    }
}

.NET Framework 安全性

请参见

参考

WorkbookBase 类

Microsoft.Office.Tools.Excel 命名空间