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

Answer 1

这个需要利用 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, 二) = "\\" Then iStart = 三 Else iStart = 一 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 Su

Answer 2

使用vba，使用mkdir