ARTICLE · 1340594
分享一个基于Excel VBA的文件遍历程序
分享一个基于Excel VBA的文件遍历程序新建一个Excel文档，将工作表“Sheet1”重命名为“文件清单”，然后按Alt+F11组合键进入VBA编辑窗口，依次点击“插入(I)”-->“模块(M)”，在模块1输入下图所示内容： 
上图中folder为待遍历文件夹，ws为放置文件路径的工作表（文件路径会显示在A列），kw1和kw2分别为关键词，rowIndex则定义从第几行开始显示文件路径。 碰到只需要定义一个关键词的情形，可以将kw1和kw2定义成包含关系。举个例子，假设我想把所有扩展名为“.txt”的文件找出来，可以指定kw1为“.txt”，kw2为“.t”。当然更多时候会用到两个关键词，比如一个是扩展名，另一个是某个字符串。另外要特别说明的是，为了确保普适性，这里将关键词定义成了不分大小写。 继续点击“插入(I)”-->“模块(M)”，在模块2输入下图所示内容： 
模块2调用模块1查找工作簿所在文件夹下扩展名为“.mp3”的文件，需要在哪个文件夹及其子文件夹中查找文件，就将工作簿复制到这个文件夹下运行宏程序即可。 当然也可以为宏程序定义快捷键，这个Case就可以定义快捷键为“Ctrl+i”，如下图所示： 
随机运行程序的显示结果如下图所示： 
显然，这个工作簿被复制到了这个路径：D:\音乐之声。
声明：本文为个人学习的记录，涉及的操作步骤、工具使用及配置方法均基于网上公开资料整理；涉及软件若为商业授权产品，使用必须遵守相关软件的许可协议及所在国家/地区的法律法规；涉及内容若有侵权，请联系作者删除。
