【求助】 变量定义的问题

鱼儿游游

下面的代码能生成一项菜单，缺点是要先引用：Microsoft office 11.0 Object library对象库

   Dim iBar As CommandBar
    Dim iButton As CommandBarButton
    Dim iCombo As CommandBarComboBox
    Set iBar = Application.CommandBars.Add(Name:=("menuTreeView"), Position:=msoBarPopup, Temporary:=True)
    With iBar
        Set iButton = .Controls.Add(Type:=msoControlButton)
        iButton.Caption = "增加  选定节点子节点(&A)"
        iButton.OnAction = "Get_PopupMenuSelection"
        iButton.Tag = "ADD"
        iButton.FaceId = 240
    End with

求助问题：不用先引用Microsoft office 11.0 Object library对象库，代替上述代码中的变量定义？

类似定义ADO记录一样：
用
   DIM rst As Object
   Set rst = CreateObject("ADODB.Recordset")

代替：
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

andymark

原则上是可以的:  CreateObject("XX")
但要知道具体xx叫啥

鱼儿游游

是呀，我就是不知道那个“XX"是什么？

yehf

Access,Excel,Word等等的Application里面也有CommandBars和Commandbar对象的啊,不需要引用Microsoft office 11.0 Object library对象库

鱼儿游游

要引用的，不然出错。

t小宝

把 CommandBar 这些对象用 Object 代替，msoBarPopup 这些常数用实际数值代替就可以了。

   Dim iBar As Object  'CommandBar
    Dim iButton As Object  'CommandBarButton
    Dim iCombo As Object  'CommandBarComboBox
    Set iBar = Application.CommandBars.Add(Name:=("menuTreeView"), Position:=5, Temporary:=True)
    With iBar
        Set iButton = .Controls.Add(Type:=1)
        iButton.Caption = "增加  选定节点子节点(&A)"
        iButton.OnAction = "Get_PopupMenuSelection"
        iButton.Tag = "ADD"
        iButton.FaceId = 240
    End With

鱼儿游游

我试试，多谢小宝。{:soso_e181:}