宏以按功能区菜单中的按钮

时间:2019-05-06 15:57:39

标签: excel vba

在特定的Excel工作表中,我想要一个宏,以到达Excel功能区上的“分析”按钮,然后按下特定的按钮“ Alles aktualisieren”。您可以查看屏幕截图进行澄清。

enter image description here

“分析”选项卡是SAP-BI的附加组件,因此它不是“标准Excel”选项卡。

根据一位用户的建议,我记录了该宏,并获得了以下代码,但是当我运行该宏时,它不起作用。

Sub Makro1()


Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Selection.UnMerge
Selection.UnMerge
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")
Application.Run Range("CallbackWorkbookSaved")

End Sub

2 个答案:

答案 0 :(得分:1)

使用SAP API

Public Sub SAP_Daten_aktualisieren()
Dim lResult As Variant

Application.StatusBar = Now & " Daten auf Afo-Blättern werden aktualisiert.."
DoEvents


lResult = Application.Run("SAPExecuteCommand", "Refresh", "All")
If lResult <> 1 Then
    Application.StatusBar = Now & " Problem beim Aktualisieren der SAP Daten "
    MsgBox "Fehler beim Aktualisieren der SAP Daten. SAPCode= " & lResult, vbCritical
Else
    Application.StatusBar = Now & " Fertig: SAP Daten wurden erfolgreich aktualisiert "
End If

End Sub

答案 1 :(得分:0)

您是否知道可以记录宏?我建议您开始录制宏,按该按钮,停止录制,然后查看录制的宏的外观。收到问题后,如果仍然有任何疑问,请编辑您的问题,添加记录的代码,我们可能会做进一步的研究。