VBA从对话框中选择文件（仅特定文件扩展名）

使用FileDialog对象来选择文件，并仅允许特定文件扩展名的文件被选择。

示例代码：

Sub SelectFile() Dim fd As FileDialog Dim fileName As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
    .Filters.Clear
    .Filters.Add "Excel文件", "*.xlsx;*.xls"
    .AllowMultiSelect = False
    
    If .Show = True Then
        fileName = .SelectedItems(1)
        MsgBox "您选择的文件是：" & fileName
    Else
        MsgBox "您没有选择文件。"
    End If
End With

End Sub

这个示例选择了Excel文件并通过消息框显示您选择的文件的名称。可以通过更改 .Filters.Add() 函数中的文件扩展名来选择不同类型的文件。如果只想要一个文件被选择，可将 .AllowMultiSelect 设置为 False。