excel vba 代码如何取得一个文件夹里有多少个excel文件, 就是计算一个文件夹里有几个e

2025-04-08 20:34:35
推荐回答(1个)
回答1:

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 n
End Sub