GBKEE

¦^´_ 1# mygod0403

1. Sub Ex()
   
2.     Dim C As CommandBar, W As CommandBarControl, i As Integer
   
3.     i = 1
   
4.     For Each C In Application.CommandBars
   
5.         If C.ID = 1 Then      '¦Û­q¤u¨ã¦Cªº ID = 1
   
6.             Cells(i, "A") = C.Name
   
7.             For Each W In C.Controls
   
8.                 Cells(i, "B") = W.OnAction
   
9.                 i = i + 1
   
10.             Next
    
11.             i = i + 1
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X