Workbook.SetLinkOnData 方法 [轉貼] @ fuzzy2007

設定每當更新 DDE 連結時執行的程序名稱。

命名空間: Microsoft.Office.Tools.Excel
組件： Microsoft.Office.Tools.Excel (在 microsoft.office.tools.excel.dll 中)

語法

'宣告

Public Overridable Sub SetLinkOnData ( _
	Name As String, _
	<OptionalAttribute> Procedure As Object _
)

'用途

Dim instance As Workbook
Dim Name As String
Dim Procedure As Object

instance.SetLinkOnData(Name, Procedure)

參數

Name: DDE/OLE 連結名稱，以 LinkSources 方法傳回。

Procedure: 更新連結時執行的程序名稱。這可以是 Microsoft Office Excel 4.0 巨集或 Visual Basic 程序。將此引數設為空字串 ("")，表示更新連結時不應執行任何程序。

備註

選擇性參數

如需選擇性參數的詳細資訊，請參閱瞭解 COM Interop 中的選擇性參數。

範例

下列程式碼範例取得目前活頁簿中所有 DDE 連結的集合，然後每當其中一個連結更新時，使用 SetLinkOnData 方法執行名為 UPDATE_MACRO 的巨集。

C++

JScript

複製

Private Sub WorkbookSetLinkOnData()
    Dim Links As Array = _
        CType(Me.LinkSources(Excel.XlLink.xlOLELinks), _
        Array)
    If Links IsNot Nothing Then
        Dim i As Integer
        For i = 1 To Links.Length
            Me.SetLinkOnData(Links(i), "UPDATE_MACR0")
        Next i
    Else
        MsgBox("The workbook contains no DDE/OLE links.")
    End If
End Sub