vba在当前目录下建立新的文件夹

试试下面的代码：在当前目录下依次创建指定文件夹

Sub test()
    Dim arr, arrTemp
    Dim strPath As String
    Dim strTemp
    Dim i As Long, j As Long
    On Error Resume Next
    strPath = ThisWorkbook.Path & Application.PathSeparator
    arr = Sheet1.Range("a1").CurrentRegion
    For i = LBound(arr) + 1 To UBound(arr)
        strTemp = strPath
        arrTemp = Split(arr(i, 1), "")
        For j = LBound(arrTemp) To UBound(arrTemp)
            strTemp = strTemp & arrTemp(j) & Application.PathSeparator
            MkDir strTemp
        Next
    Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v37x3e7xj2rxryfrfy.html