如何找到Ribbon中的按钮名称并调用

815282546

我是一名财务分析师，有一些VBA皮毛的知识，也帮助团队开发一些小程序。这次需要帮团队开发一个小应用，通过VBA实现自动依次点击截图中的Ribbon（IBM Planning Analytics）中“连接”和“刷新工作表”这两个按钮。
该Ribbon不是由xml格式写的，而是dll文件。

请问我如何才能定位到这两个按钮的名称，并通过VBA进行调用？

非常感谢。

dong20030432

你试着用ViewWizard（句柄精灵）或者类似软件看看能不能获取到Ribbon的子窗口吧。不是很懂，希望高手帮你吧。

dong20030432

可以通过ＡＰＩ查找父窗口句柄，然后调用它的子窗口或者子按钮，试下吧，没准可行呢。

lss001

Sub 枚举菜单控件()
    Dim cb As CommandBar, cbc As CommandBarControl, ar
    Cells.Clear
    ar = Array("菜单名称", "控件ID", "控件标题", "控件类型")
    Range("a1").Resize(1, UBound(ar) + 1) = arr
    For Each cb In Excel.Application.CommandBars
        For Each cbc In cb.Controls
            i = i + 1
            Cells(i, 1) = cb.Name '菜单名称
            Cells(i, 2) = cbc.ID '控件ID
            Cells(i, 3) = cbc.Caption '控件类型
            Cells(i, 4) = cbc.Type '控件标题
        Next
    Next
End Sub
Sub 执行菜单控件命令()
    Dim cb As CommandBars, cf As CommandBarControl
    Set cb = Excel.Application.CommandBars
    Set cf = cbc.FindControl(Type:=1, ID:=19)
    cf.Execute '执行命令
End Sub

OKJSJSF

lss001 发表于 2020-1-11 16:52
Sub 枚举菜单控件()
    Dim cb As CommandBar, cbc As CommandBarControl, ar
    Cells.Clear

为什么找不到“接受/拒绝修订”的叉勾图标ID？