如何将动态范围的文件扩展名填充至UserForm的ComboBox

要实现提取Sheet2中A列文件名的扩展名并添加到ComboBox的功能，你需要做两个核心修改：提取文件名的扩展名，以及避免重复添加相同扩展名，同时修正原初始化代码里的错误（不要在UserForm_Initialize里调用Show）。

方法1：使用FileSystemObject提取扩展名（推荐，更可靠） #

利用你已经用到的Scripting.FileSystemObject来精准提取扩展名，同时用字典去重：

Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim i As Long
    Dim fso As Object
    Dim fileExt As String
    Dim extDict As Object
    
    ' 创建字典用于存储不重复的扩展名
    Set extDict = CreateObject("Scripting.Dictionary")
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取Sheet2中A列最后一行
    lastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
    
    With Me.ComboBox1
        .Clear ' 先清空ComboBox
        For i = 1 To lastRow
            ' 提取当前单元格文件名的扩展名
            fileExt = fso.GetExtensionName(Sheet2.Cells(i, 1).Value)
            ' 如果扩展名不为空且字典中不存在，则添加到ComboBox和字典
            If fileExt <> "" And Not extDict.Exists(fileExt) Then
                .AddItem fileExt
                extDict.Add fileExt, fileExt
            End If
        Next i
    End With
    
    ' 释放对象
    Set extDict = Nothing
    Set fso = Nothing
End Sub

方法2：用VBA内置函数提取扩展名（无需FSO） #

如果不想依赖FileSystemObject，可以用Split函数手动提取：

Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim i As Long
    Dim fileName As String
    Dim fileExt As String
    Dim extDict As Object
    
    Set extDict = CreateObject("Scripting.Dictionary")
    lastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
    
    With Me.ComboBox1
        .Clear
        For i = 1 To lastRow
            fileName = Sheet2.Cells(i, 1).Value
            ' 从文件名末尾分割出扩展名（仅当文件名包含点时）
            If InStr(fileName, ".") > 0 Then
                fileExt = Split(fileName, ".")(UBound(Split(fileName, ".")))
                ' 可选：统一扩展名大小写（比如全部转小写）
                fileExt = LCase(fileExt)
                If Not extDict.Exists(fileExt) Then
                    .AddItem fileExt
                    extDict.Add fileExt, fileExt
                End If
            End If
        Next i
    End With
    
    Set extDict = Nothing
End Sub

关键细节说明 #

1. 删除UserForm1.Show：UserForm_Initialize事件是窗体显示前自动触发的，在里面调用Show会导致无限循环，直接移除这行代码即可。
2. 去重逻辑：用Scripting.Dictionary存储已添加的扩展名，避免ComboBox出现重复选项。
3. 原文件名单代码优化：可以指定写入Sheet2，避免当前激活工作表不对的问题：

Sub LoopThroughFiles()
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim i As Integer

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder("你的OneDrive文件夹路径")
    
    ' 清空Sheet2的A列旧数据
    Sheet2.Columns("A").Clear
    
    i = 0
    For Each oFile In oFolder.Files
        Sheet2.Cells(i + 1, 1) = oFile.Name ' 明确写入Sheet2
        i = i + 1
    Next oFile
    
    Set oFile = Nothing
    Set oFolder = Nothing
    Set oFSO = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Desert Spider