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添加菜单)