tp5 获取目录下所有文件_循环提取某目录下的所有文件

今日的内容是“VBA之EXCEL应用”的第三章“工作簿(Workbook)和工作表(Worksheet)对象(Object)”中第四节“跨工作表计算器的实现”。“VBA之EXCEL应用”这套教程从简单的录制宏的讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。

第五节 循环提取某目录下的所有文件

大家好，在上一讲中，我们讲了如何提取已经打开工作薄的名称和工作簿所有工作表的名称，那么如何提取某个目录文件夹下面的所有文件并同时提取文件的所有工作表名称呢(这讲我们单就EXCEL文件进行提取)？在这讲中，我们将学习到Dir函数及Do While循环，并再次展示给大家对象的层次结构。

1  循环提取某目录下的所有文件的实用场景分析

在当前路径下有个“提取文件”的文件夹，其下有若干个文件，如下图： 我们要提取出其中的EXCEL文件，并将每个文件的名称及每个文件的所有工作表名称提取出来回填到当前的工作表中。

2  提取文件夹中文件的VBA代码思路分析

为了提取文件夹中的Excel文件及每个文件的工作表名称，我们要在文件夹中建立一个循环，在循环中取得每个文件的文件名，然后打开这个文件，最后利用上节的方法得到文件的工作表名称。 上述信息得到后，可以将信息回填给工作表。 这里要求提取到的是Excel类型的文件，所以我们在提取文件的时候要注意文件类型，同时为了提高程序的运行效率，我们可以关闭电脑的屏幕刷新功能。下面我们将逐步讲解上述思路的实现过程。

3  Dir 函数的讲解

我们先来看看一个函数：Dir 函数，这个函数返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。 语法： Dir [ (pathname, [ attributes ] ) ] 参数： 1) pathname       可选。指定文件名的字符串表达式，可包括目录或文件夹和驱动器。如果未找到 pathnameÿ