请问怎样取指定两种或者多种格式的文件呢

文件 = Dir(ThisWorkbook.Path & "\" & "*.xlsm")
[A1].Value = ThisWorkbook.Path & "\" & 文件
Do
文件 = Dir
i = i + 1
If 文件 <> "" Then
Cells(i + 1, "A").Value = ThisWorkbook.Path & "\" & 文件
Else
Exit Do
End If
LoopLoop
以上代码只能获取*.xlsm格式的文件，如果改成*.*变成获取全部。请问有没有办法同时获取两种格式的文件呢？(*.xlsm和*.txt)

文件 = Dir(ThisWorkbook.Path & "\*.*")
Do While 文件 <> ""
If InStr(文件, ".xlsm") > 0 Or InStr(文件, ".txt") > 0 Then
i = i + 1
Cells(i , "A").Value = ThisWorkbook.Path & "\" & 文件
Else
文件 = Dir
Loop