Excel表格使用VBA代码，批量新建文件夹、工作簿和工作表

在我们日常工作中可能会遇到需要批量新建文件夹、工作簿和工作表的情况，操作本身并不难但是就是因为操作次数多需要很长时间。今天给朋友们分享三段非常实用的VBA代码来解决这个难题。不懂VBA不要紧，直接使用就可以。

一.操作步骤：

1.无论是批量新建文件夹、工作表还是工作簿先将名称录入到工作表的A列。

2.按下快捷键ALT+F11打开VBA编辑界面，插入一个模块复制对应的代码后按下F5键运行。

二.代码：

1.批量新建工作簿：

Sub 批量新建工作簿()
Application.DisplayAlerts = False
For i = 1 To ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Cells(i, 1) & ".xlsx"
Next
End Sub

2.批量新建文件夹：

Sub 批量新建文件夹()
Application.DisplayAlerts = False
For i = 1 To ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
VBA.MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
Next
End Sub

3.批量新建工作表：

Sub 批量新建工作表()
Application.DisplayAlerts = False
For i = 1 To ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
ActiveSheet.Name = ThisWorkbook.Worksheets(1).Cells(i, 1)
Next
End Sub

总结，这三段实用的VBA代码你学会了吗？