excel利用VBA批量创建指定名称的文件夹

Excel利用VBA批量创建指定名称的文件夹

有时在工作中需要批量创建指定名称的文件夹，如果数量较多，例如要创建几十、甚至几百个文件夹，用手动的方法很难完成。批量创建文件夹的工具有很多，如果一时手头没有这类工具，可以在Excel中用VBA来完成，方法如下：

1.新建一个工作簿，在A列中输入要创建的文件夹名称，在B1单元格中输入文件夹所在的有效路径，如“d:\新建文件夹”。

2.按Alt+F11，打开VBA编辑器。在右侧的代码窗口中输入下列代码：

Sub BatchCreatFolders()Dim rCel As RangeFor Each rCel In ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns(1).CellsOn Error Resume Next‘B1单元格为新建文件夹所在的路径MkDir Range("B1").Text & "\" & rCel.TextNextEnd Sub

3.运行上述代码，即可批量创建指定名称的文件夹。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。