使用 VBA 在 Excel 加载项 (Jedox) 中运行按钮

Question

我有以下简单的 Excel 电子表格：

      A             B       
1    Revenue       5.000    =PALO.DATAC("Jedox Server";"P&L";"Revenue")
2    Costs        -3.000    =PALO.DATAC("Jedox Server";"P&L";"COSTS")
3    Profit        2.000    =SUM(B1:B2)
4
5

正如您在单元格B1和B2中看到的那样，我正在使用 BI-Tool https://www.jedox.com/en/以从OLAP-Cube插入Revenue和Costs 。

到目前为止，这一切都完美无缺。

---

使用 BI-Tool 的 Excel 插件，我还可以创建一个所谓的OLAP Screenshot ：

当我点击此按钮时，将创建一个新文件，其中删除单元格 B1和B2中的公式，仅显示值（在本例中： 5.000和-3.000 ）。

现在，我希望我可以使用 VBA 代码触发此按钮。 像这样的东西：

Sub OLAP_Screenshot()
Go to Excel-Addin "Jedox"
Click on "Speichern als Snapshot"
End Sub

您知道 VBA 代码在 BI-Tool 中激活此按钮的样子吗？

Answer 1

一个简单的解决方案是 map 的快捷方式：

SendKeys ("%Y1D"), True

其中 %= alt，激活键盘快捷键 Y1= 功能区快捷键（更改为 Jedox 插件的映射） D = 按钮快捷键（更改为 Speichern als Snapshot 按钮的映射）

警告：只有在没有其他选项可用时才应使用 SendKeys 方法，因为如果在代码运行时激活了错误的 window，则会导致问题。

或者查看 VBA object 库并添加：工具>参考>Jedox

从这里看起来像：（我没有安装插件）

Sub SAS

Dim Jedox As JedoxExcelAddIn
Set Jedox= Application.COMAddIns.Item("Jedox.ExcelAddIn").Object
Jedox.'Speichern als Snapshot'

End Sub