获取当前的Excel版本内置的工具栏的名称和类型

   
获取当前的Excel版本内置的工具栏的名称和类型

    Dim oCmdBar As CommandBar

    Dim i, temp

    [a1:c1] = Array("在集合中引用的名称", "当前系统的菜单名称", "类型")

    i = 2

    For Each oCmdBar In Application.CommandBars

        Select Case oCmdBar.Type

            Case 0

                temp = "msoBarTypeNormal"

            Case 1

                temp = "msoBarTypeMenuBar"

            Case 2

                temp = "msoBarTypePopup"

        End Select

        Cells(i, 1) = oCmdBar.Name

        Cells(i, 2) = oCmdBar.NameLocal

        Cells(i, 3) = temp

        i = i + 1

    Next