请问一下各位大佬这是什么情况，我不是设置了只显示xls格式的

似乎要通过这程序查看当前xls文件夹里所有xls文件吧？这样程序错了。如果程序目的是要查看xls文件而已，不必如此写程序了，直接打开文件夹查看好了。
编写这程序目的是什么？

回复 小菜鸡🐷🐨 :我说错了，不能说“程序错了”。（你及）我（可能像不少人一样）不知道究竟是新版本软件dir函数有此特殊情况{如果对比一文件后缀扩展名时，找到含有匹配字符即算符合要求（，不理会后面是否还有字符）}；还是不论新旧版本软件都有上述问题。
dir函数上述问题，因此运行Dir(某路径\*.xls")，程序对比文件后缀扩展名，如果其中含有字符“xls”时，则认为是符合要求，即使说包括“xlsx”/“xlsm”文件（都会列入）。所以，程序需在找到文件名后，再进一步验证文件后缀扩展名是否绝对符合（排除不绝对符合部分，如下范例程序）。
Sub macro1()
Dim i%, j%, n(1)As String
n(0) =Dir("D:\Wendang\*.xls") 'n(0)记录第一个（可能存在的）【".xls*"类】文件名
If Right(n(0), 4)= ".xls" Then '如果这个（".xls*"）文件是纯".xls"文件
n(1) = "1." & n(0) 'n(1)记录第一个【纯".xls"类】文件名
j = 1 'j变量记录【纯".xls"】类文件纪录第一个序号
n(0) = Dir 'n(0)刷新记录下一个【".xls*"类】文件名
Do While n(0) <> "" '如果n(0)非空白（即，文件夹里还有另1个".xls*"文件）
i = i + 1 'i为当前找到【".xls*"类】文件数-1
If Right(n(0), 4) = ".xls" Then'如果这个（".xls*"）文件是纯".xls"文件
j = j + 1 '【纯".xls"类】文件（继续）计数
n(1) = n(1) & Chr(10) & j& "." & n(0) 'n(1)变量（刷新纪录）添加下一".xls"类文件文件名
End If
n(0) = Dir 'n(0)刷新记录下一个【".xls*"类】文件名
Loop
MsgBox n(1) & Chr(10) & Chr(10)& "注：【"".xls*""类】文件中有" _
& i - j + 1 & "个【非纯"".xls""类】文件（例如"".xlsx""文件)。"
Else
MsgBox "该文件夹里没有【纯"".xls""类】文件。"
End If
End Sub

刚才程序文本是如上面回复中（无格式）文字｛Sub macro1()……End Sub｝，程序格式如下图所示。

*