[已解决]谢谢爱疯老师。统计个数

lhj323323 · 发表于 2012-9-25 12:02

本帖最后由 lhj323323 于 2012-9-27 20:18 编辑

老师：
我需要统计同一路径下文档的个数，并以MSGBOX的形式显示出来

内容如下：
文档个数：个
其中：
Excel文档个数：个
Word文档个数：个
TXT文档个数：个

最佳答案

月排行榜 / 总排行榜

爱疯

2012-9-27 08:53

2.rar (29.73 KB, 下载次数: 8)

xiaoni · 发表于 2012-9-25 12:37

这个不会，等待高手来解答

那么的帅 · 发表于 2012-9-25 12:51

TXT 文档的扩展名都是TXT
EXCELWORD 文档有多种类型，扩展名也不一样，请告知EXCEL文档的扩展名都可能是哪些？

lhj323323 · 发表于 2012-9-25 22:05

那么的帅发表于 2012-9-25 12:51
TXT 文档的扩展名都是TXT
EXCELWORD 文档有多种类型，扩展名也不一样，请告知EXCEL文档的扩展名都可能是哪 ...

xls和doc就行了，多的就不要了

爱疯 · 发表于 2012-9-26 09:30

Sub 按钮1_Click()
Dim arr(), p$, f$, i%
Dim fso As Object
arr = [{"xls",0;"doc",0;"txt",0}]
p = ThisWorkbook.Path & ""
Set fso = CreateObject("Scripting.FileSystemObject")
f = Dir(p)
Do While f <> ""
For i = 1 To UBound(arr)
If fso.GetExtensionName(p & f) = arr(i, 1) Then
arr(i, 2) = arr(i, 2) + 1
Exit For
End If
Next i
f = Dir
Loop
For i = 1 To UBound(arr)
MsgBox arr(i, 1) & "文档个数：" & arr(i, 2) & "个"
Next i
End Sub

复制代码

1.rar (19.73 KB, 下载次数: 8)

风化石 · 发表于 2012-9-26 15:24

Sub Macro1()
m = Array("*.xls", "*.doc", "*.txt")
For i = 0 To 2
With Application.FileSearch
.Filename = m(i)
.LookIn = ThisWorkbook.Path & "\分表"
.Execute
k = .FoundFiles.Count '文件夹中的文件个数
End With
MsgBox m(i) & "文件" & k & "个"
Next
End Sub

新建文件夹.rar (26.93 KB, 下载次数: 1)

lhj323323 · 发表于 2012-9-27 00:01

爱疯发表于 2012-9-26 09:30

两位老师：
能否同时把这些结果显示在同一个MSGBOX中？

爱疯 · 发表于 2012-9-27 08:53

2.rar (29.73 KB, 下载次数: 8)

雨~~~~ · 发表于 2012-9-28 14:40

呀，还有这样统计的呀

		自动登录	找回密码
密码			注册

[已解决]谢谢爱疯老师。统计个数

相关帖子