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

【问题标题】：Run a button in an Excel-Add-In (Jedox) using VBA使用 VBA 在 Excel 加载项 (Jedox) 中运行按钮
【发布时间】：2019-11-15 08:19:27
【问题描述】：

我有以下简单的 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-Add-In，我还可以创建一个所谓的OLAP Screenshot：

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

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

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

您知道要在 BI-Tool 中激活此按钮的 VBA 代码必须是什么样子吗？

【问题讨论】：

标签： excel vba business-intelligence jedox

【解决方案1】：

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

SendKeys ("%Y1D"), True

在哪里 %= alt，激活键盘快捷键 Y1= 功能区快捷方式（更改为 Jedox 插件映射的内容） D = 按钮快捷方式（更改为 Speichern als Snapshot 按钮映射的内容）

警告：如果没有其他选项，您应该只使用 SendKeys 方法可用，因为它可能会导致问题，如果错误的窗口是代码运行时激活。

或者查看 VBA 对象库并添加：tools>references>Jedox

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

Sub SAS

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

End Sub

【讨论】：