基于链接的工作表管理菜单的设计与应用。在Excel工作表中设计一个管理菜单，依次选中各菜单项，执行“插入／超链接”命令，分别链接到相应实验的工作簿文档上。其缺点是只能在带管理菜单的工作表中打开各实验的工作簿文档。
　　采用宏可以编制多级用户菜单取代系统提供的命令菜单，方法如下。
　　打开文档时自动运行的宏
　　Sub Auto_Open()
　　 OpenMenu
　　End Sub
　　关闭文档时自动运行的宏
　　Sub Auto_Close()
　　 On Error Resume Next
　　 MenuBars("MyMenu").Delete
　　End Sub
　　自定义多级菜单的宏
　　Sub OpenMenu()
　　 On Error Resume Next
　　 MenuBars("MyMenu").Delete
　　 Sheets("物理实验管理").Select
　　 MenuBars.Add ("MyMenu")’自定义菜单
　　’添加第1级“力学实验”菜单项
　　 MenuBars("MyMenu").Menus.Add Caption:="力学实验"
　　’添加第2级“力学实验1”～“力学实验2”菜单项
　　 MenuBars("MyMenu").Menus("力学实验").MenuItems.Add Caption:="力学实验1", OnAction:="SheetOpen11"
　　 MenuBars("MyMenu").Menus("力学实验").MenuItems.Add Caption:="力学实验2", OnAction:="SheetOpen12"
　　’添加第1级“电学实验”菜单项
　　 MenuBars("MyMenu").Menus.Add Caption:="电学实验"
　　’添加第2级“电学实验1”～“电学实验2”菜单项
　　 MenuBars("MyMenu").Menus("电学实验").MenuItems.Add Caption:="电学实验1", OnAction:="SheetOpen21"
　　 MenuBars("MyMenu").Menus("电学实验").MenuItems.Add Caption:="电学实验2", OnAction:="SheetOpen22"
　　 MenuBars("MyMenu").Activate’激活自定义菜单
　　End Sub
　　打开指定工作簿文档“力学实验1.xls”的宏
　　Sub SheetOpen11()
　　 Dim book As Workbook’定义一个Workbook变量
　　 On Error Resume Next
　　 Set book = Workbooks("力学实验1.xls")
　　 If book Is Nothing Then
　　Workbooks.Open Filename:=ThisWorkbook.Path "力学实验1.xls"’ ’打开指定工作簿文档
　　 End If
　　 Windows("力学实验1.xls").Activate
　　 Sheets("力学实验1").Activate
　　End Sub
　　类似地，可以编写打开“电学实验.xls”、“力学实验2.xls”和“电学实验2.xls”工作簿文档的宏。