Excel开发（VBA）— 在Excel里自动添加菜单

     最近，做了一个报表工具，把SQL Server里取数据查询取出来放在Excel里显示出来，中间涉及到了自动添加菜单的问题。

    效果：

   

 

代码如下：

''' ' 添加菜单 ''' Sub Auto_Open() ThisWorkbook.Application.Caption = "数据查询报表" CreateTableMenu End Sub Sub CreateTableMenu() DeleteTableMenu MenuBars(xlWorksheet).Menus.Add ("历史报表") MenuBars(xlWorksheet).Menus("历史报表").MenuItems.Add Caption:="历史数据查询", OnAction:="Show" End Sub '在Workbook中调用 Private Sub Workbook_BeforeClose(Cancel As Boolean) DeleteTableMenu End Sub Private Sub Workbook_Open() Auto_Open End Sub Sub DeleteTableMenu() On Error Resume Next MenuBars(xlWorksheet).Menus("历史报表").MenuItems("历史数据查询").Delete On Error Resume Next MenuBars(xlWorksheet).Menus("历史报表").Delete On Error Resume Next End Sub