【分享成果，随喜正能量】不要和不讲理的人较劲，因为最后受伤的可能是你，因为你的十张嘴也说不过一张胡说的嘴！想要快乐，一定要记住：遇到烂人不计较，碰到破事别纠缠！。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的工作效率，而且可以提高数据的准确度。我的教程一共九套，分为初级、中级、高级三大部分。是对VBA的系统讲解，从简单的入门，到数据库，到字典，到高级的网抓及类的应用。另外，为了方便大家学习和应用，我又推出了一部VBA汉英手册，这部手册覆盖了VBA的方方面面，与实际工作衔接度高。

为了更好的完善学员的知识结构，及丰富学员的实践经验，我还会提供给大家更多的VBA工具，有较复杂些的NZ系列工具，较容易些的YZ系列，同时还有MF系列技术资料，MF,YZ，NZ各个系列的工具，在平台上不会公布代码，大家可以根据自己的需要联系我选择。MF系列技术资料侧重VBA应用技巧和疑难杂症，里面有很多实用技巧提供给大家。对于MF系列资料，学员只要获得我所有教程（9套教程+汉英手册）中的三套及以上就可以索获这个系列资料;如果您获得我的全部教程+手册+工具（NZ,YZ），那么您可以获得我提供的所有MF系列技术资料，如果您还不是我的学员，您可以选择分享。今日给大家介绍的是VBA技术资料MF49：VBA_在Excel中使用DIR函数

MF49：VBA_在Excel中使用DIR函数

在应用VBA过程中，Dir函数是我们经常会遇到的。在MF49中，我们将向您展示说明如何使用VBA宏来完成这项工作。MF49资料提供六种常用的应用方案：①从路径中给出文件名 ②检查文件夹是否存在③从文件夹中给出第一个文件名称 ④从目录中给出所有文件名称 ⑤给出所有文件和文件夹名称 ⑥给出特定类型的所有文件名称。工具中的代码可以单独使用，也可以放在您自己的程序中作为UDF使用。

一 从路径中给出文件名

我们看一下这个工具的应用界面，如下图：

点击按钮后，会给出路径ThisWorkbook.Path & "\VBA_DirFunction.xlsm"所指示的文件名：

二 检查文件夹是否存在

我们看一下这个工具的应用界面，如下图：

点击按钮后，会检查PN = ThisWorkbook.Path所指示的文件夹是否存在（当然是存在的）：

三 从文件夹中给出第一个文件名称

我们看一下这个工具的应用界面，如下图：

点击按钮后，会给出ThisWorkbook.Path & "\"所指示的文件夹下的第一个文件名称：

四 从目录中给出所有文件名称

我们看一下这个工具的应用界面，如下图：

点击按钮后，会给出ThisWorkbook.Path & "\"所指示的文件夹下的所有文件名称：

五 给出所有文件和文件夹名称

我们看一下这个工具的应用界面，如下图：

点击按钮后，会给出ThisWorkbook.Path & "\"所指示的文件夹下的所有文件和文件夹的名称：

六 给出特定类型的所有文件名称

我们看一下这个工具的应用界面，如下图：

点击按钮后，会给出ThisWorkbook.Path & "\"所指示的文件夹下的所有xlsm文件名称的列表：

代码见程序文件：VBA_DirFunction.xlsm