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