作者：乔山办公网日期：
返回目录：word文档
在工作中，尤其是像我在汽车制造行业，很多文件需要归纳到同一个文件夹中，每天就新建文件夹好几十个，文件夹还需要不停的重命名，麻烦。不符合我的懒惰工作的态度，所以VBA来解决，方便又快捷。
这是我今天要梳理文件的目录，21个文件夹创建，重命名需要按照表格中内容，头大，下面开启懒人模式
快捷键Alt+F11，进入VBE,插入模块。直接来代码
代码完成，A列有多少行内容，就自动新建多少个文件夹
但发现一个问题，如果我不是按A列内容新建文件夹，而是我选择一部分单元格，根据我选择来新建文件夹呢，如何操作，不多说，上代码。
根据选择的单元格区域内容新建文件夹
由于经常使用，总是通过开发工具--->代码-->宏来选择运行，太麻烦，能不能右键就能运行代码呢，当然可以，在VBE的ThisWorkbook中写下下图代码
在ThisWorkbook中workbook的open事件下写代码
好了，代码完成。下面看看效果。
在任意单元格单击右键，第一个选项就是我们定义的右键快捷键，有两种方式新建文件夹。
提示：第二种方法需要先选中单元格区域，再运行。
效果截图如下：
好了，今天就写这些。这只是简单的写了一点，还有很多需要修改的地方，简单举个例，如果你选择的单元格是空格，单元格里没有内容的怎么办？我们知道文件夹命名不能为空，大家思考一下。
如果大家有关于VBA完成某项工作的需求，可以留言交流，讨论较多的，下期更文就以你需求为主题。