如何在VBA InputBox中实现多扩展名支持？现有代码仅支持jpg

方案1：扩展原生InputBox的输入支持 #

原生InputBox本身只是文本输入控件，没有内置多扩展名筛选逻辑，但可以通过引导用户输入指定格式的筛选规则，再在后续代码中解析处理。修改你的代码如下：

Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show
f = fldr.SelectedItems(1)
f = f & "\"
' 修改提示文本，明确告知多扩展名用分号分隔，同时给出示例默认值
ibox = InputBox("输入文件名筛选规则（支持通配符，多扩展名用分号分隔，如 *.jpg;*.png;*.gif）", , "*.jpg;*.png")

' 拆分多扩展名规则并处理文件
Dim filterArr As Variant
filterArr = Split(ibox, ";")
Dim filter As String
For Each filter In filterArr
    Dim fileName As String
    fileName = Dir(f & filter)
    Do While fileName <> ""
        ' 此处添加你的文件处理逻辑，例如此处打印文件名到调试窗口
        Debug.Print fileName
        fileName = Dir
    Loop
Next filter

注意事项 #

• 必须在提示文本里明确说明多扩展名的分隔方式（分号），避免用户输入错误
• 后续处理时需拆分输入的筛选规则，逐个匹配文件

方案2：用自定义用户窗体替代InputBox（更直观） #

如果不想让用户手动输入格式，可创建简单的用户窗体，通过复选框让用户选择需要的扩展名，彻底避免输入错误：

1. 插入用户窗体，添加复选框（如chkJpg、chkPng、chkGif）和一个确定按钮
2. 窗体代码示例：

Public selectedFilters As String

Private Sub cmdOK_Click()
    selectedFilters = ""
    If chkJpg.Value Then selectedFilters = selectedFilters & "*.jpg;"
    If chkPng.Value Then selectedFilters = selectedFilters & "*.png;"
    If chkGif.Value Then selectedFilters = selectedFilters & "*.gif;"
    ' 移除末尾多余的分号
    If Len(selectedFilters) > 0 Then selectedFilters = Left(selectedFilters, Len(selectedFilters) - 1)
    Me.Hide
End Sub

3. 调用窗体的代码：

Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show
f = fldr.SelectedItems(1)
f = f & "\"

' 显示自定义选择窗体
Dim frm As New UserForm1
frm.Show
ibox = frm.selectedFilters
Unload frm

' 后续处理逻辑同方案1
If ibox <> "" Then
    Dim filterArr As Variant
    filterArr = Split(ibox, ";")
    Dim filter As String
    For Each filter In filterArr
        Dim fileName As String
        fileName = Dir(f & filter)
        Do While fileName <> ""
            Debug.Print fileName
            fileName = Dir
        Loop
    Next filter
End If

优势 #

• 用户无需记忆格式规则，通过复选框选择更直观
• 大幅降低输入错误的概率

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