如何获取VBA中可用类列表并生成可迭代Range？

一、批量获取所有可引用的类列表 #

要获取对象浏览器中「All Libraries」下的类列表，可通过遍历VBA工程的引用库，提取其中的类类型信息。以下函数返回一个可迭代的Collection，包含所有类名：

' 需提前在VBA编辑器「工具→引用」中勾选"Microsoft Type Information"库
Function GetAllVBAClasses() As Collection
    Dim colClasses As New Collection
    Dim ref As Reference
    Dim typeInfo As TypeInfo
    Dim i As Integer
    
    ' 遍历当前工程的所有引用库
    For Each ref In Application.VBE.ActiveVBProject.References
        On Error Resume Next ' 跳过无权限访问的引用
        For i = 1 To ref.TypeLibInfo.Count
            Set typeInfo = ref.TypeLibInfo.TypeInfo(i)
            ' 仅筛选类类型（TypeKind=tk_class）
            If typeInfo.TypeKind = tk_class Then
                colClasses.Add typeInfo.Name
            End If
        Next i
        On Error GoTo 0
    Next ref
    
    Set GetAllVBAClasses = colClasses
End Function

二、将类列表转为Range（优先需求） #

Range对象本质依赖工作表，无法脱离工作表独立存在。可以通过临时工作表生成Range，用完可选择删除：

Function ClassesToRange() As Range
    Dim colClasses As Collection
    Dim arr() As String
    Dim i As Integer
    Dim tempSheet As Worksheet
    
    Set colClasses = GetAllVBAClasses()
    ReDim arr(1 To colClasses.Count, 1 To 1)
    
    ' 将类名填充到数组
    For i = 1 To colClasses.Count
        arr(i, 1) = colClasses(i)
    Next i
    
    ' 创建临时工作表并写入数据
    Set tempSheet = ThisWorkbook.Worksheets.Add
    tempSheet.Range("A1").Resize(colClasses.Count).Value = arr
    
    Set ClassesToRange = tempSheet.Range("A1").Resize(colClasses.Count)
    ' 可选：隐藏临时表，避免干扰用户
    tempSheet.Visible = xlSheetVeryHidden
End Function

调用后若无需保留临时表，可执行tempSheet.Delete清理。

三、无需工作表的替代方案（用于InputBox默认值） #

如果只是需要给InputBox提供默认选项，无需真的生成Range，可将类列表拼接为换行分隔的字符串：

Sub ShowClassSelectionInput()
    Dim colClasses As Collection
    Dim defaultOptions As String
    Dim i As Integer
    
    Set colClasses = GetAllVBAClasses()
    
    ' 拼接类名为换行分隔的字符串
    For i = 1 To colClasses.Count
        defaultOptions = defaultOptions & colClasses(i) & vbCrLf
    Next i
    ' 移除最后多余的换行符
    defaultOptions = Left(defaultOptions, Len(defaultOptions) - 2)
    
    ' 弹出输入框，默认显示所有类名
    Dim userChoice As String
    userChoice = InputBox("请选择或输入目标类名:", "VBA类选择", defaultOptions)
End Sub

四、关于“无工作表创建Range”的说明 #

Range是Excel工作表的从属对象，完全脱离工作表的Range不存在。如果只是需要可迭代的数据源，优先使用Collection、数组或Dictionary，这些类型无需依赖工作表，操作更高效：

Function GetClassesArray() As Variant
    Dim colClasses As Collection
    Dim arr() As String
    Dim i As Integer
    
    Set colClasses = GetAllVBAClasses()
    ReDim arr(1 To colClasses.Count)
    
    For i = 1 To colClasses.Count
        arr(i) = colClasses(i)
    Next i
    
    GetClassesArray = arr
End Function

内容的提问来源于stack exchange，提问作者RoGKôT