VBA - 获取工作簿中的模块

使用VBA，我们可以轻松地获取工作簿中的模块。这对于编写和管理大型VBA代码库非常有用。本文将介绍如何使用VBA获取工作簿中的模块，并提供一个案例代码来说明其用法。

vba
Sub GetModulesInWorkbook()
    Dim wb As Workbook
    Dim module As Object
    
    Set wb = ThisWorkbook
    
    For Each module In wb.VBProject.VBComponents
        Debug.Print module.Name
    Next module
End Sub

vba
Sub DisplayModuleNames()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim module As Object
    Dim i As Integer
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets.Add
    
    ws.Range("A1").Value = "模块名称"
    
    i = 2
    
    For Each module In wb.VBProject.VBComponents
        ws.Cells(i, 1).Value = module.Name
        i = i + 1
    Next module
End Sub