EXCELVBA创建菜单代码 EXCEL VBA创建菜单的代码 Sub Creatxlsht() On Error Resume Next Application.CommandBars("xlsht").Delete Dim cbrCmdBar As CommandBar Dim strCBarName As String s