快速生成文件夹

Public Function FolderCreate()
'通过选定文件夹创建子文件夹
    Dim strFolderName As String

    On Error Resume Next

    With Application.FileDialog(4)
        If Not .Show Then Exit Function
        strFolderName = .SelectedItems(1)
    End With

    MkDir strFolderName & "\" & 字段名

    MsgBox "创建成功。", vbOKOnly, "操作提示"

End Function

根据需要修改“字段名”