大神帮看看，这个统计xlsm的代码为啥结果总是0

hhyyhyhy

1. Sub Count_Excel_Files()
   
2.     Dim FolderPath As String, Filename As String
   
3.     Dim Counter As Integer
   
4.    
   
5.     ' 获取当前工作簿的路径
   
6.     FolderPath = ThisWorkbook.Path
   
7.    
   
8.     ' 搜索指定路径下的Excel文件，并统计数量
   
9.     Filename = Dir(FolderPath & "\*.xlsm*")
   
10.     While Filename <> ""
    
11.         Counter = Counter + 1
    
12.         Filename = Dir()
    
13.     Wend
    
14.    
    
15.     ' 显示Excel文件数量
    
16.     MsgBox "本文件夹中共有 " & Counter & " 个Excel文件。"
    
17. End Sub

复制代码

实际有三个后缀xlsm的文件

bxm78

代码在我的电脑上执行没问题。

ykcbf1100

改成这样再试一下
Do While Filename <> ""
        Counter = Counter + 1
        Filename = Dir()
loop

limonet

do while

loop

hhyyhyhy

还是0，是不是跟mac系统有关啊

gwjkkkkk

这个代码应该没问题。。。