求助！如何能统计出宏工作簿中sub的总数量

pocketmiddle

个人宏工作簿中，一共有7，8个模块，每个模块中又有数量不等的sub过程。
请问，有什么便捷的方法可以快速统计出此工作簿中一共有多少个sub过程吗？
谢谢。

qingc0221

1. Sub Main()
   
2.     Dim VBP As VBIDE.VBProject
   
3.     Dim VBC As VBComponent
   
4.     Dim CM As CodeModule
   
5.     Dim Msg As String
   
6.     Dim StartLine As Long, Cnt As Long
   
7.    
   
8.     Set VBP = ActiveWorkbook.VBProject  'ActiveWorkbook改为要统计的工作簿名
   
9.    
   
10.     For Each VBC In VBP.VBComponents
    
11.         Set CM = VBC.CodeModule
    
12.         StartLine = CM.CountOfDeclarationLines + 1
    
13.         Do Until StartLine >= CM.CountOfLines
    
14.             '显示过程名称，可删除
    
15.             Msg = Msg & VBC.Name & "：" & CM.ProcOfLine(StartLine, vbext_pk_Proc) & vbNewLine
    
16.             '过程数量
    
17.             Cnt = Cnt + 1
    
18.             StartLine = StartLine + _
    
19.                 CM.ProcCountLines(CM.ProcOfLine(StartLine, vbext_pk_Proc), vbext_pk_Proc)
    
20.         Loop
    
21.     Next VBC
    
22.     Msg = Msg & vbCrLf & "过程总数：" & Cnt
    
23.     MsgBox Msg
    
24. End Sub

复制代码

qingc0221

设置：
1、信任中心--宏设置--信任对VBA工程对象模型的访问
2、工具|引用--勾选Microsoft Visual Basic for Applications Extensibility Library

pocketmiddle

qingc0221 发表于 2018-8-11 11:11
设置：
1、信任中心--宏设置--信任对VBA工程对象模型的访问
2、工具|引用--勾选Microsoft Visual Basic f ...

大佬，完全看不懂啊。是要先在设置里面设置好之后再运行2楼的宏吗？

qingc0221

pocketmiddle 发表于 2018-8-11 20:25
大佬，完全看不懂啊。是要先在设置里面设置好之后再运行2楼的宏吗？

嗯...................................

jiminyanyan

这个统计出来做啥呢。。。

qingc0221

jiminyanyan 发表于 2018-8-11 20:32
这个统计出来做啥呢。。。

我也不知道.........

pocketmiddle

jiminyanyan 发表于 2018-8-11 20:32
这个统计出来做啥呢。。。

写一写总结、学习心得什么的。