使用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工具的Excel外接程序，我还可以创建一个所谓的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

你知道VBA代码在BI工具中激活这个按钮的样子吗？

Answer 1

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

SendKeys ("%Y1D"), True

在%= alt中，激活键盘快捷键Y1=带状快捷方式(更改到Jedox插件映射为什么)D=按钮快捷方式(更改为Speichern快照按钮映射为什么)

警告:只有在没有其他选项可用的情况下，才应该使用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