Excel.Worksheet Dim sOutput() As String Dim sFileName As String '声明访问工作簿中宏的变量 Dim vbProj As VBIDE.VBProject Dim vbComp As VBIDE.VBComponent Dim vbMod As VBIDE.CodeModule '声明其它变量 Dim iRow As Long
至于为什么,我也不知道原因,后来在网上查了相关资料后,都是要使用一个类模块进行转换,创建1个类模块,命名CCommandBar: Public WithEvents cmdbe As VBIDE.CommandBarEvents
仍然可以按F2进入对象浏览器去查看这个对象,如果没有看到VBIDE这个库,查看工具-引用中是否勾选了下面一项: ? 2、VBA工程对象: 在F2对象浏览器中查看VBAProject: ?
在VBIDE库下面的对象里,找到VBE对象,它下面就有CommandBars属性,这个属性就是菜单相关的,再点击下面: ?
然后是实现类模块响应按钮的单击事件: Public WithEvents cmdbe As VBIDE.CommandBarEvents Private Sub cmdbe_Click(ByVal
3.显示当前所有引用 Sub ShowRefs() Dim rf As VBIDE.Reference For Each rf InThisWorkbook.VBProject.References