CommandBarDir.txt文件:
msoControl,caption,faceID,endflag
1,vba_main,538,
1,i_row,73,
10,Object,361,
1,dic,2,
1,ado...看看:
Sub TestExcelCMDB()
Dim cmdb As CommandBarButton
Application.CommandBars("Worksheet Menu...Reset
Dim i As Long
For i = 1 To 200
Set cmdb = Application.CommandBars("Worksheet Menu