关于WPS VBE菜单获取

opel-wong

以下“获取菜单ID”过程，在Excel中正常运行，但是在WPS中报错，不能运行！
在网上找不到WPS VBA的帮助，有玩WPS的高手不，帮忙指点一下。谢谢！


Sub 获取菜单ID()
    Dim mControl As CommandBarControl

    '--- 获取VBE菜单栏名称及ID
    For Each mControl In Application.VBE.CommandBars(1).Controls
        Debug.Print mControl.ID, mControl.Caption
    Next

    '--- 获取VBE默认第1个工具条(标准)按钮名称及ID
    For Each mControl In Application.VBE.CommandBars(2).Controls
        Debug.Print mControl.ID, mControl.Caption
    Next

    '--- 获取默认第2个工具条（编辑）按钮名称及ID
    For Each mControl In Application.VBE.CommandBars(3).Controls
        Debug.Print mControl.ID, mControl.Caption
    Next

End Sub

在Excel中，Application.VBE.CommandBars(1)返回结果：
30002        文件(&F)
30003        编辑(&E)
30004        视图(&V)
30005        插入(&I)
30006        格式(&O)
30165        调试(&D)
30012        运行(&R)
30007        工具(&T)
30038        外接程序(&A)
30009        窗口(&W)
30010        帮助(&H)

在Excel中，Application.VBE.CommandBars(2)返回结果：
106          Microsoft Excel
32806        插入对象
3            保存 工作簿1(&S)
21           剪切(&T)
19           复制(&C)
22           粘贴(&P)
141          查找(&F)...
128          无法撤消
129          无法重复
186          继续(&C)
189          中断(&K)
228          重新设置(&R)
212          设计模式(&M)
5415         运行工程(&P)
2557         工程资源管理器(&P)
222          属性窗口(&W)
473          对象浏览器(&O)
548          工具箱(&X)
984          Microsoft Visual Basic for Applications 帮助(&H)
3201         规则

在Excel中，Application.VBE.CommandBars(3)返回结果：
2529         属性/方法列表(&H)
2530         常数列表(&S)
2531         快速信息(&Q)
2532         参数信息(&M)
2533         自动完成关键字(&W)
15           缩进(&I)
14           凸出(&O)
51           切换断点(&T)
192          设置注释块
2552         解除注释块
2525         切换书签(&T)
2526         下一书签(&N)
2527         上一书签(&P)
2528         清除所有书签(&C)

lss001

WPS可以运行以上代码
运行代码前需要设置以下2项

1，关闭→沙箱保护
→点击左上角WPS图标
→点击右上角三横线
→点击设置
→关闭沙箱保护


2，信任对于 "Visual Basic 项目" 的访问
   信任对于 "WPS JS 项目" 的访问
    打开xlsm文件
→点击开发工具
→点击宏安全性
→点击右边可靠发行商
√ 勾选→信任对于 "Visual Basic 项目" 的访问
√ 勾选→信任对于 "WPS JS 项目" 的访问