VBA自定义函数：统计指定扩展名的文件数量

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 自定义函数 下面是整理自网上的一些统计文件数量的代码，供参考。 一个 VBA 自定义函数，可用于统计文件夹中的文件数，特别是指定扩展名的文件数。函数代码如下： ' 目的: 统计文件夹中的文件数. ' 如果提供了文件扩展名, 则仅统计这种类型的文件 ' 否则返回所有文件数. Function CountFiles(strDirectory As String, Optional strExt As String  =  "*.*") As Double Dim objFso As Object Dim objFiles As Object Dim objFile As Object '设置错误处理 On Error GoTo EarlyExit '创建对象以获取文件夹中的文件数  Set objFso  = CreateObject("Scripting.FileSystemObject")  Set objFiles  = objFso.GetFolder(strDirectory).Files '统计文件数 (如果提从则匹配扩展名) If strExt = "*.*" Then CountFiles = objFiles.Count Else For Each objFile In obj ………………………………