在Office VBA的世界里,要跨文件进行批量操作(如多个工作簿同名工作表合并,多个工作簿合并等),Dir函数是经常要用到的。
当你学会利用VBA进行多文件的批量操作,命运的齿轮或许正在悄然开始转动......别人可能需要一个1小时才能完成的工作量,你只要10分钟或更少的时间就能完成。
这里通过3个小案例,抛砖引玉,介绍Dir函数的基本用法。
案例1获取D盘下所有文件名称
案例2获取D盘所有xls等类型的文件名称
案例3获取D盘下所有文件夹及文件名称
基本语法Dir[ (pathname, [attributes] ) ]pathname参数:支持使用多字符(*)和单字符(?)通配符来匹配指定类型的文件;
attributes参数:默认为vbNormal,返回文件名称。另一个常用的取值为vbDirectory,则返回目录名称、和文件名称。
注释1.必须在首次调用 Dir 函数时指定 pathname参数;Dir函数会返回与 pathname 匹配的第一个文件名;
2.重新调用 Dir 而不使用参数,会返回与pathname匹配的下一个文件名;当不再有匹配的文件名时,Dir 将返回空字符串;在返回空字符串后,重新调用 Dir 而不使用参数,将会发生错误;
3.Dir函数,通常和循环语句结合使用,将Dir函数返回的空字符串,作为循环语句结束的条件。