已有一个Excel表格，用VBA批量新建文件夹

已有一组Excel表格数据，使用VBA快速批量建文件夹

不知道标题怎么写。
已经有了这样一组数据

然后需要根据这两组数据新建文件夹，代码如下

Sub 建文件夹()Dim i As Integer '用于下方数组Dim Arr1(), Arr2() '定义一个数组，不能定义大小和类型Dim Fso, Fld    '定义文件路径Dim rowmax  '找到数据的行数start_time = Timer  '计时开始'数据的行数rowmax = [A1048576].End(xlUp).Row
'把两列数据分别赋值给两个个数组Arr1 = Range("A2:A" & rowmax)Arr2 = Range("B2:B" & rowmax)
'选择建文件夹的路径Set Fso = CreateObject("Scripting.FileSystemObject")Set Fld = Fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择需要创建文件夹的根目录", 0, "").Self.Path & "")'开始批量新建文件夹For i = 1 To UBound(Arr1)FolderName = Arr1(i, 1) & " " & Arr2(i, 1)If Dir(Fld & "\" & FolderName, vbDirectory) = vbNullString Then  '如果文件夹不存在，则新建VBA.MkDir (Fld & "\" & FolderName)End IfNext
'建好了cost_time = Timer - start_time  '计时结束，计算用时Range("D6") = cost_time
End Sub

完成

202003072230 更新
如果是需要建二级目录，在第一次for循环里再加一个for循环即可，如下图所示。

Sub 建文件夹()Dim i As Integer '用于下方数组Dim Arr1(), Arr2() '定义一个数组，不能定义大小和类型Dim Fso, Fld    '定义文件路径Dim rowmax  '找到数据的行数start_time = Timer  '计时开始'数据的行数rowmax = [A1048576].End(xlUp).Row
'把两列数据分别赋值给两个个数组Arr1 = Range("A2:A" & rowmax)Arr2 = Range("B2:B" & rowmax)
'选择建文件夹的路径Set Fso = CreateObject("Scripting.FileSystemObject")Set Fld = Fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择需要创建文件夹的根目录", 0, "").Self.Path & "")'开始批量新建文件夹For i = 1 To UBound(Arr1)FolderName = Arr1(i, 1) & " " & Arr2(i, 1)If Dir(Fld & "\" & FolderName, vbDirectory) = vbNullString Then  '如果文件夹不存在，则新建VBA.MkDir (Fld & "\" & FolderName) ' 新文件建好了' 见上方的一行代码，此时，已经建好了一个文件夹。文件夹的全路径是：Fld & "\" & FolderName' 如果需要建二级文件夹的话，在已经建好的文件夹下继续新建文件夹就行了
'''''''''''''''''''''''''''''以下''''''''''''''''''''''''''''''''''''''''''''        ' 下方For循环模拟建二级文件夹For j = 0 To 10VBA.MkDir (Fld & "\" & FolderName & "\" & "测试文件" & j)Next
'''''''''''''''''''''''''''''以上''''''''''''''''''''''''''''''''''''''''''''End IfNext
'建好了cost_time = Timer - start_time  '计时结束，计算用时Range("D6") = cost_time
End Sub

这里操作

'''''''''''''''''''''''''''''以下''''''''''''''''''''''''''''''''''''''''''''     ' 下方For循环模拟建二级文件夹For j = 0 To 10VBA.MkDir (Fld & "\" & FolderName & "\" & "测试文件" & j)Next
'''''''''''''''''''''''''''''以上''''''''''''''''''''''''''''''''''''''''''''

最后效果如下图所示
一级目录

二级目录

已有一个Excel表格，用VBA批量新建文件夹相关推荐

如何用excel批量新建文件夹并命名？
如何用excel批量新建文件夹并命名?这是什么意思呢,假设你在在excel表格里整理了大量的名称,现在需要通过这些名称一次性新建大量的文件夹并命名,你知道如何处理吗?想要快速的新建好文件夹,就需要掌握 ...
如何批量新建文件夹，名称用excel里的
如何批量新建文件夹,名称用excel里的?如果一个excel表格中准备好了大量的名称,现在需要根据这些名称批量新建文件夹,你知道如何操作吗?这就是我们常说的批量新建文件夹并命名的操作技巧,如果你没有掌 ...
如何批量新建文件夹并重命名
如何批量新建文件夹并重命名?有小伙伴表示因为工作的特殊性,经常需要在电脑上新建大量的文件名并且进行重命名,这项工作每次都需要耗费大量的时间,因为每次都需要新建大量的文件夹,一个一个的新建然后重命名效率 ...
如何批量新建文件夹？
如何批量新建文件夹?你在使用电脑的过程中是否遇到过批量新建文件夹的问题呢?相信有一些小伙伴曾经遇到过吧,因为关于在问题在搜索引擎上的搜索量是非常高的,我们把这个问题进行详细的解释,就是很多人需要根据大 ...
快速批量新建文件夹并命名，详细步骤
如何快速批量新建文件夹并命名?大家对电脑上的文件夹应该比较熟悉吧,文件夹就像一个盒子,盒子里面可以存放各种文件,可见文件夹在电脑上是多么的重要.对于新建文件夹,相信大家也知道怎么操作,右击鼠标后点击新 ...
批量新建文件夹的方法步骤
批量新建文件夹的方法?这是今天小编要给大家分享的一个电脑操作技巧,应该不少小伙伴在工作中需要批量新建文件夹吧,例如根据大量的姓名批量新建文件夹,这个操作很多小伙伴还都知道如何实现,所以都在网上搜索解决 ...
批量新建文件夹并命名_dos命令实现批量新建文件夹
1.批量新建文件夹(使用命令:MD) 实现案例:假如我们要新建10个文件夹,这10个文件夹的名称分别是数字1-10来命名. 以下详细步骤: 1)在excel表里面把需要批量新建的文件夹名字放到一列(假 ...
如何批量新建文件夹，批量新建文件夹并命名
如何批量新建文件夹并命名?有时候我们经常需要创建大量的文件夹,来完成某些工作,相信很多上班族都遇到过.不过也都存在这样困扰,一个一个新建并且命名速度太慢了,占用了大量的上班时间,却毫无办法.那是因为大 ...
怎么批量新建文件夹并命名？
怎么批量新建文件夹并命名?我们每个人都可能会面对五花八门的工作,例如有时候我们需要按照事先准备好的名称新建大批量的文件,如果你是一名职场新手,肯定需要花上大量的时间来完成这项工作,有可能耗费一天的时间 ...

已有一个Excel表格，用VBA批量新建文件夹

已有一组Excel表格数据，使用VBA快速批量建文件夹

已有一个Excel表格，用VBA批量新建文件夹相关推荐

最新文章

热门文章