共用方式為

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 伺服器的名稱。除了發行者和訂閱者以外，所有類型的陣列均為一維陣列格式。傳回的字串包含連結來源 (Link Source) 的名稱，名稱會使用連結類型的適當標記法。例如，DDE 連結使用 "Server|Document!Item" 語法。

若為發行者和訂閱者連結，則傳回二維陣列。陣列的第一個欄位包含版本名稱，而第二個欄位包含文字形式的版本參照。

選擇性參數

如需選擇性參數的詳細資訊，請參閱Office 方案中的選擇性參數。

範例

下列程式碼範例使用 LinkSources 方法，將外部 Excel 連結加入至目前活頁簿，並取得活頁簿中所有 Excel 連結名稱的陣列。然後此範例使用 OpenLinks 方法，以唯讀方式開啟每個連結的活頁簿。

這是示範文件層級自訂的範例。

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);
    }
}

.NET Framework 安全性

請參閱

參考

WorkbookBase 類別

Microsoft.Office.Tools.Excel 命名空間