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

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

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