設定每當更新 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 的巨集。

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

創作者介紹

fuzzy2007

fuzzy2007 發表在 痞客邦 PIXNET 留言(0) 人氣()