VBA 宏关闭 DDE 链接答案

【问题标题】：VBA Macro to Close DDE LinksVBA 宏关闭 DDE 链接
【发布时间】：2014-12-24 18:20:31
【问题描述】：

我在使用 Excel 电子表格中的 DDE 链接时遇到问题。它冻结了。我认为这可能是由旧的 DDE 链接引起的，我正在尝试运行这个脚本来关闭所有 DDE 链接。每当我运行它时，

行：2 字符：24 错误：预期语句结束代码：800A0401 来源：微软VBScript编译错误

代码如下：

Sub KillDDE()
  Dim i, ChannelNumber As Integer
  For i = 1 To 1000
    Application.DDETerminate (i) ' Closes all DDE links whose channels might be open
    Next i
  ChannelNumber = Application.DDEInitiate("prortDDE", "DAX") 'initiates a new channel for a DDE link
  Range("A2").Value = Application.DDERequest(ChannelNumber, "Last")

End Sub

【问题讨论】：

标签： vba vbscript

【解决方案1】：

两件事应该有所帮助：

使用Application.DDETerminateAll方法found HERE
According to MSDN Application.DDEInitiate 返回Long 所以Dim ChannelNumber As Long

【讨论】：