资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

VBA添加菜单

 
Sub CreateMenu()
 
    Dim menuBar As CommandBar
    Set menuBar = Application.CommandBars("Worksheet Menu Bar")
    
    menuBar.Reset
    Dim menu As CommandBarPopup
    Set menu = menuBar.Controls.Add(Type:=msoControlPopup, temporary:=True)
    menu.Caption = "Tools"
    
    Dim menuItem As CommandBarButton
    Set menuItem = menu.Controls.Add(Type:=msoControlButton, temporary:=True)
    menuItem.Caption = "SheetCompare"
    menuItem.OnAction = "CompareHandle"
    
    Dim menuItem2 As CommandBarButton
    Set menuItem2 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)
    menuItem2.Caption = "ExportSheetAsTxt"
    menuItem2.OnAction = "ExportSheetAsTxt"
    
    Dim menuItem5 As CommandBarButton
    Set menuItem5 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)
    menuItem5.Caption = "SheetsCompare"
    menuItem5.OnAction = "SheetsCompare"
    
    Dim menuItem3 As CommandBarButton
    Set menuItem3 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)
    menuItem3.Caption = "CreateInsertSQL"
    menuItem3.OnAction = "SqlInsert"
    
    Dim menuItem4 As CommandBarButton
    Set menuItem4 = menu.Controls.Add(Type:=msoControlButton, temporary:=True)
    menuItem4.Caption = "CreateDeleteSQL"
    menuItem4.OnAction = "SqlDelete"
 
End Sub
 

名称栏目:VBA添加菜单
标题路径:http://www.cdkjz.cn/article/ggcioi.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220