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://mswzjz.cn/article/ggcioi.html