VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程

学习Excel技术，关注微信公众号：
excelperfect

有时，我们可能需要知道工作簿中有哪些模块和相应的过程。Jon Peltier改编了VBA过程，可以列出当前所有已经打开的工作簿中所含有的VBA模块和过程清单。在输出工作表中，前两行为模块所在工作簿名称和工程名称。并且，代码会绕过受保护的VBA工程，同时如果工作簿中没有代码，也会在输出工作表中说明。

下面是完整的代码：
Sub GetVBAProcedures()
'声明访问Excel工作簿的变量
Dim app As Excel.Application
Dim wb As Excel.Workbook
Dim wsOutput As Excel.Worksheet
Dim sOutput() As String
Dim sFileName As String

'声明访问工作簿中宏的变量
Dim vbProj As VBIDE.VBProject
Dim vbComp As VBIDE.VBComponent
Dim vbMod As VBIDE.CodeModule

'声明其它变量
Dim iRow As Long
Dim iCol As Long
Dim iLine As Integer
Dim sProcName As String
Dim pk As vbext_ProcKind

Set app = Excel.Application

'创建新工作簿用于输出数据
Set wsOutput =app.Workbooks.Add.Worksheets(1)

'遍历打开的所有工作簿
For Each vbProj In app.VBE.VBProjects
      On Error Resume Next
      sFileName = vbProj.Filename
      If Err.Number  0 Then sFileName= "文件没有保存"
      On Error GoTo 0

      '初始化输出数组
      ReDim sOutput(1 To 2)
      sOutput(1) = sFileName
      sOutput(2) = vbProj.Name
      iRow = 0

      '检查是否为受保护的工程
      On Error Resume Next
      Set vbComp = vbProj.VBComponents(1)
      On Error GoTo 0

      If Not vbComp Is Nothing Then
         '遍历工程中的每个组件
         For Each vbComp InvbProj.VBComponents
            '找到代码模块
            Set vbMod = vbComp.CodeModule
            '浏览代码模块,查找程序
            iLine = 1
            Do While iLine

VBA实用小程序49： 列出所有打开工作簿中的VBA模块和过程

VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程