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

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

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

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

文章内容收集于网络，希望能为您提供帮助。强国说学习-WPS之家(wps.qiangguoshuo.com)

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.运行上述代码，即可批量创建指定名称的文件夹。

单击此处下载xls格式的示例文件。

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/70126.html