Question

Excel vba, 如何调用多格式的打开文件对话框？

这是我从网上找到的打开文件对话框的代码。但是它只支持.xls文件。
Sub SelectFile()
Dim aFile As Variant '数组，提取文件名sFileName时使用
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
'调用Windows打开文件对话框
If FileName <> False Then '如果未按“取消”键
aFile = Split(FileName, "\") '在全路径中，以“\”为分隔符，分成数据
sPathName = aFile(0) '取盘符
For i = 1 To UBound(aFile) - 1 '循环合成路径名
sPathName = sPathName & "\" & aFile(i)
Next
sFileName = aFile(UBound(aFile)) '数组的最后一个元素为文件名
End If
TextBox2.Text = FileName
End Sub
我希望它既支持.xls，又支持其它格式，如.xlsx。
请高手指点，两种以上的格式的打开文件对话框，谢谢！

Answer 1

Filename = Application.GetOpenFilename("xls,*.xls,xlsx,*.xlsx")

Answer 2

Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")

Answer 3

FileName = Application.GetOpenFilename("all type(*.*，*.*")