当单元格中DDE链接提供的值更改时,如何调用宏

时间:2019-01-01 17:12:08

标签: excel vba excel-vba

在这种情况下,我尝试使用SetLinkOnData调用此代码来调用一个简单的宏“ msg”,我只是想检测DDE链接提供的值的变化,但是我收到了此错误:“预期的编译错误:声明结束” 如果有人指示我如何正确使用SetLinkOnData或一种方法来检测DDE Link给定值的变化,这将是很好的,这是我的代码:

Sub UpDateDDE()
 Dim Mylink As String
 Dim Procedure As String
  Mylink = "MT4|BID!EURJPY"
  Procedure = "msg"
    With ThisWorkbook.SetLinkOnData Mylink Procedure
End Sub

Sub msg()
  MsgBox "new value detected!"
End Sub

1 个答案:

答案 0 :(得分:0)

更改为:

ThisWorkbook.SetLinkOnData Mylink, Procedure