Excel vba获取指定类型的路径及文件名

下面通过Excel VBA代码获取指定类型的文件名。在模块中运行以下代码：

Sub Excel_Partner_txt()
    Dim myFileName As String
    myFileName = Application.GetOpenFilename("文本文件(*.txt), *.txt")
    Range("A1") = myFileName
End Sub

代码运行后，Excel调用“打开”对话框，在“文件类型”列表框中已经限定为只能打开扩展名为txt的文件。双击指定的文件，Excel获取指定类型的文件名。