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

发布网友发布时间：2022-04-22 03:17

我来回答

共2个回答

热心网友时间：2023-07-28 08:16

工具：Office2013

方法如下：

1.在当前Excel文件所在文件夹中，创建以A列内容为名称的文件夹：

2.Alt+F11，输入代码如下：

3.F5执行代码，返回当前文件所在文件夹，就可以看到批量创建了A列内容为名称的文件夹：

热心网友时间：2023-07-28 08:16

这个需要利用 vba功能实现。
Public Sub MyMkDir(sPath As String)
Dim iStart As Integer
Dim aDirs As Variant
Dim sCurDir As String
Dim i As Integer

If sPath <> "" Then
aDirs = Split(sPath, "\")
If Left(sPath, 2) = "\\" Then
iStart = 3
Else
iStart = 1
End If

sCurDir = Left(sPath, InStr(iStart, sPath, "\"))

For i = iStart To UBound(aDirs)
sCurDir = sCurDir & aDirs(i) & "\"
If Dir(sCurDir, vbDirectory) = vbNullString Then
MkDir sCurDir
End If
Next i
End If
End Sub