日常工作中，我们时常需要创建文件夹来管理文件，通常都是一个一个创建，通过VBA可以实现批量创建文件夹。接下来分享使用VBA编写代码来批量创建文件夹的步骤，希望能帮到大家。
操作步骤如下：
步骤 1：启动VBA编辑器
打开Excel文件，依次点击【开发工具】—【Visual Basic】，或按下快捷键Alt + F11，启动VBA编辑器。
步骤 2：插入新模块
在VBA编辑器中，右键点击任意模块，选择“插入”，再点击“模块”，插入一个新的VBA模块。
步骤 3：编写VBA代码
输入以下VBA代码：
Sub 创建文件夹()
Dim folderNames() As String
Dim parentFolder As String
Dim folderPath As String
Dim i As Integer
' 指定要创建的文件夹名称，可根据需求添加或修改
folderNames = Split("1月,2月,3月", ",")
parentFolder = "E:\桌面\" ' 替换你想要创建文件夹的路径
' 循环创建文件夹
For i = LBound(folderNames) To UBound(folderNames)
folderPath = parentFolder & folderNames(i)
MkDir folderPath
Next i
MsgBox "文件夹创建完成！"
End Sub
步骤 4：运行代码
点击工具栏中的“运行”按钮或按下F5键，运行VBA代码。提示框中会显示“文件夹创建完成！”，表示文件夹创建成功。
步骤 5：查看创建结果
找到我们放置创建文件夹的位置，即存放的路径。就可以看到已经成功创建了以“1月”、“2月”等命名的文件夹。
这段VBA代码是用于批量创建指定名称的文件夹。
相关释义：
- folderNames() As String: 这是一个字符串数组，用于存储要创建的文件夹的名称。每个文件夹的名称都以逗号分隔，例如：“文件夹1,文件夹2,文件夹3”。
- parentFolder As String: 这是一个字符串变量，用于存储要创建文件夹的父文件夹的路径。在这个示例中，父文件夹的路径是"E:\桌面"。
- folderPath As String: 这是一个字符串变量，用于存储每个文件夹的完整路径。在循环中，将每个文件夹的名称与父文件夹路径拼接起来，形成完整的文件夹路径。
- For i = LBound(folderNames) To UBound(folderNames): 这是一个循环结构，用于遍历文件夹名称数组中的每个元素。LBound和UBound函数分别返回数组的下限和上限。
- MkDir folderPath: 这是一个VBA函数，用于创建文件夹。在每次循环中，将当前文件夹的完整路径传递给MkDir函数，以创建对应的文件夹。
- MsgBox “文件夹创建完成！”: 这行代码用于在创建完成后弹出一个消息框，提示用户文件夹创建完成。
- 在代码中需要替换`parentFolder`变量的值为你希望创建文件夹的父文件夹路径。可根据实际需求修改循环次数和文件夹命名规则。
通过以上步骤，我们可以利用VBA批量创建文件夹，提高文件管理效率，特别适用于需要大量文件夹的时候，如整理资料、存档数据等，希望大家喜欢，请继续关注。
原创文章，作者：简单一点，如若转载，请注明出处：https://www.506064.com/n/168259.html
微信扫一扫 
支付宝扫一扫 