当我们需要通过对话框选择指定类型文件时，可以采用以下代码来实现：

With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "CSV文本文件", "*.csv"
   ' .Filters.Add "所有文件", "*.*"
    .Title = "选择文件"
    If Not .Show Then Exit Sub
    
    Dim strPathName As String
    strPathName = .SelectedItems(1)
    Debug.Print strPathName
End With