vba - VBA 触发市场数据引擎重启

Question

我安装了 PPP.xla、DDE.xla、PPPInit.xla 插件。但我不知道这些加载项的受保护密码。如果我想触发[Market Data Engine Restart]，我应该调用哪个函数？

Call Application.Run("???")

我想要这个的原因是因为有时当我使用 RtHistory("IDN", ,,,) 时，它不起作用（返回 "#N/AN/A"），除非我重新启动 PowerPlusPro.exe 或单击 [重新启动数据引擎] 在路透社工具栏中。我想通过使用 VBScript 调用 Excel 来自动化这个 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

干杯

斯蒂芬