说明

本次所讲的遍历获取某文件夹下所有文件，其实是我的《每月自动汇总考勤数据》案例中的其中一个知识点，近期我将会集中将本案例中所有应用到的知识点逐一的写出来，最后汇总成一个真正可用的成品。
本案例中首要的突破的技术难关就是如何获取各部门报送的考勤表文件，然后对比有哪些部门没有报送，如果全都报送了，则逐个读取文件内容填入汇总表中。

关键技术点：Dir函数

返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。
语法：Dir [ (pathname, [ attributes ] ) ]
引用自：https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/dir-function

Dir 函数语法具有以下部分：

Part	说明
pathname	可选。指定文件名的字符串表达式，可包括目录或文件夹和驱动器。如果未找到 pathname，则返回零长度字符串 ("")。
attributes	可选。其和指定文件属性的常量或数值表达式。如果省略它，则返回与 pathname 匹配但没有属性的文件。

attributes 参数设置为：

常量	值	说明
vbNormal	0	（默认）指定没有属性的文件。
vbReadOnly	1	指定只读文件以及不带属性的文件。
vbHidden	2	指定隐藏文件以及不带属性的文件。
vbSystem	4	指定系统文件以及不带属性的文件。在 Macintosh 上不可用。
vbVolume	8	指定卷标；如果指定任何其他属性，则忽略 vbVolume。在 Macintosh 上不可用。
vbDirectory	16	指定目录或文件夹以及不带属性的文件。
vbAlias	64	指定文件名为别名。仅在 Macintosh 上可用。

代码code

Private Sub btnCheck_Click()'获取本文件所在文件夹所有文件Dim strPath As StringstrPath = ActiveWorkbook.PathDim coFiles As New CollectionDim tFile As StringtFile = Dir(strPath & "\", vbDirectory)Do While tFile <> ""If tFile <> "." And tFile <> ".." Then'系统会自动出现两个名为"."和".."的内容，其所能发挥的功能不是本次案例所需要的，所以将此内容剔除。coFiles.Add (tFile)End IftFile = Dir'每调用一次Dir只返回一个文件名Loop'为了方便呈现效果，在sheet1中的第2列显示出结果For i = 1 To coFiles.CountCells(1 + i, 2).Value = coFiles.Item(i)NextMsgBox "运行结束，请检查运行结果。"
End Sub

运行效果图

使用说明

获取到的文件名存储在一个Collection类型中，存储、统计、调用皆是相当简洁；
在遍历获取文件夹所有文件时会出现两个名为".“和”…"的内容，这两个内容有熟悉的朋友会在WinRAR压缩软件中见过，具体如何使用不是本次案例所需要掌握的，暂不深入了解；
Dir函数的特点是，每调用一次仅返回一个文件名，所以要采用循环语句，当遍历了所有文件后，再调用Dir函数则返回空字符串。
请点击下载本文附件

如有意见建议或使用中出现Bug留言，谢谢！

【Excel VBA】遍历获取文件夹下所有文件——每月自动汇总考勤数据实例相关推荐

【Excel VBA】逐个读取Excel文件并将内容复制到汇总表中——每月自动汇总考勤数据实例
纲举目张说明关键技术点:Workbooks.Open 代码code 运行效果图使用说明说明上一讲[Excel VBA]利用数组.集合.循环等检查各单位报送情况--每月自动汇总考勤数据实例已经 ...
python根据文件名或后缀名遍历文件夹下所有文件或图片的路径，并计算文件行数
python遍历文件夹下所有文件或图片的路径代码指定目录下的指定后缀文件 import glob #获取指定目录下的所有图片 print (glob.glob("\\home\\qiao ...
bat递归查找指定文件_批处理脚本遍历指定文件夹下的文件
批处理脚本 1. 遍历指定文件夹下的文件 1.1 命令解释命令: for [参数] %%变量名 in (匹配符) do (执行的命令) 切记:每个指令之间必须以空格隔开,in 与 ( 之间有空格,d ...
python 获取文件夹所有文件列表_python获取文件夹下所有文件及os模块方法
python获取文件夹下所有文件方法一:使用os.listdir import os for filename in os.listdir(r'c:\windows'): print filenam ...
Windows 下 C++ 利用 OpenCV glob 函数获取文件夹下所有文件绝对路径
绪论本文记录 Windows 下 C++ 利用 OpenCv glob 函数得到文件夹下所有文件的绝对路径(含文件名).本文还含有 std::string::find()等函数的记录.如果是 Py ...
c++语言循环读写文件夹,C++遍历文件夹下所有文件的多种方法
为数不多的好用的代码,遍历文件夹获取所有子文件名,"filespec"可用通配符"*?".注意如果用相对路径的话,获取所有文件名后应再调用SetInitDir将 ...
OpenCV实现遍历文件夹下所有文件
OpenCV中有实现遍历文件夹下所有文件的类Directory,它里面包括3个成员函数:(1).GetListFiles:遍历指定文件夹下的所有文件,不包括指定文件夹内的文件夹:(2).GetList ...
怎么遍历服务器文件夹,遍历远程服务器某个文件夹下的文件
遍历远程文件夹下的文件,您可以考虑使用FTP的方式,具体的请参考下述代码: private string GetFileNames(string URI) { WebClient wClient = ...
Qt 获取文件夹下所有文件
Qt 获取文件夹下所有文件代码如下: QStringList getFileNames(const QString &path) {QDir dir(path);QStringList nam ...

【Excel VBA】遍历获取文件夹下所有文件——每月自动汇总考勤数据实例

纲举目张

说明

关键技术点：Dir函数

代码code

运行效果图

使用说明

【Excel VBA】遍历获取文件夹下所有文件——每月自动汇总考勤数据实例相关推荐

最新文章

热门文章