VBA触发市场数据引擎重启

Question

我已经安装了PPP.xla，DDE.xla，PPPInit.xla插件。但我不知道这些插件的受保护密码。如果我想触发Market Data Engine重启，我应该调用哪个函数？

Call Application.Run("???")

我想要这样做的原因是，有时当我使用RtHistory("IDN"，，，)时，它不工作(返回"#N/A N/A" )，除非我重新启动PowerPlusPro.exe或当我在路透社ToolBar中单击重新启动数据引擎时。我想通过使用VBScript调用RtHistory来自动执行这项工作。因此，在获取数据之前，我必须使用此函数名来触发重新启动。

有专家对此有什么想法吗？非常感谢。

Answer 1

我也有同样的问题。我通过重新激活powerplus pro插件解决了这个问题。

sub yourSub()
 Dim wbName As String

 wbName = ActiveWorkbook.Name
 Call activateAddIn("PowerPlus Pro Excel v5.1")
 Workbooks(wbName).Activate

end sub

'/**
' ReActivate AddIn
'**/
Public Function activateAddIn(AddinName As String) As Boolean
    AddIns(AddinName).Installed = False
    AddIns(AddinName).Installed = True
    Sleep 5000
End Function

干杯

斯蒂芬