VBA实现点击命令按钮弹出仅支持.xlsx格式的文件选择对话框

你当前使用的Shell.Application.BrowseForFolder是文件夹选择对话框，即便通过参数设置能显示文件，它也不支持文件格式过滤功能，这就是无法限制仅选择.xlsx文件的核心原因。

改用Excel VBA内置的Application.GetOpenFilename方法，这个方法专门用于文件选择操作，原生支持设置文件筛选规则，能精准限制用户只能选择指定格式的文件。

替换你原有的代码为以下内容：

Sub CommandButton_Browse_Click()
    Dim selectedFilePath As Variant
    
    ' 弹出文件选择对话框，仅允许选择.xlsx文件
    selectedFilePath = Application.GetOpenFilename( _
        FileFilter:="Excel工作簿 (*.xlsx), *.xlsx", _
        Title:="选择.xlsx格式文件")
    
    ' 处理用户取消选择的情况
    If selectedFilePath <> False Then
        Me.TextBox_InputDirectory.Text = selectedFilePath
    End If
End Sub

代码说明 #

• FileFilter参数：定义筛选规则，格式为"显示名称, 文件后缀"，这里仅保留.xlsx格式的选项。
• Title参数：设置对话框标题，引导用户操作。
• 当用户点击对话框的「取消」按钮时，selectedFilePath会返回False，需要判断这种情况避免错误赋值。

如果需要把文件选择逻辑封装成独立的子过程，也可以这么写：

Sub CommandButton_Browse_Click()
    Dim selectedFilePath As Variant
    selectedFilePath = GetXlsxFilePath()
    
    If selectedFilePath <> False Then
        Me.TextBox_InputDirectory.Text = selectedFilePath
    End If
End Sub

Function GetXlsxFilePath() As Variant
    GetXlsxFilePath = Application.GetOpenFilename( _
        FileFilter:="Excel工作簿 (*.xlsx), *.xlsx", _
        Title:="选择.xlsx格式文件")
End Function

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