Sub tt() Dim p$, f$, n% p = ThisWorkbook.Path & "\" '换成你设定的路径 f = Dir(p & "*.xls*") If f <> "" Then Do Until f = "" n = n + 1 f = Dir Loop End If MsgBox nEnd Sub