最近,做了一个报表工具,把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