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添加菜單
文章網(wǎng)址：http://weahome.cn/article/ggcioi.html

電話咨詢

028-86922220（工作日）

18980820575（7×24）

真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆