VBA根据excel表指定单元格的内容批建空文件夹

  ''有时，我们需要新建超多的文件夹，一般做法是：一个一新建、然后重命名，这样处理，十个八个无所谓，如果成百上千的建夹，就非常吃力，且量大易出错，让VBA来批处理吧！以下代码粘入EXCEL的宏中，运行即可在excel同路径的夹中新建你所要的文件夹

'**********************根据excel表内容批建空白文件夹********************

'**********************代码后有注释，方便读者自行调整********************

Sub根据表格内容新建空白文件夹()

 Sheets("批建新资源").Select    'excel中的工作表名，修改“批建新资源”字串可调整程序读取sheet表名

    Range("B6").Select '从工作表“批建新资源”中B6单元格开始，修改B6字串可调整程序读取单元格的起如位置

Dim i%

i = 6 '从第6行开始

Do Until Cells(i, "B") = "" ' '运行程序直到B列单元格为空时为止

  MkDir ThisWorkbook.Path & "\" & Cells(i, "B").Value" ' '新建文件夹名

  i = i + 1'下一个

Loop '循环

  MsgBox "资源夹已建完毕，单击“确定”进入图纸复制！" ' MsgBox为提示对话框，程序完成后提示

End Sub

'**********************根据excel表内容新建空白文件夹（完）********************

'**********************根据excel表内容新建空白文件夹（完）********************