如何实现以文本框输入内容为名称创建文件夹的Excel VBA功能？

一、功能验证结果 #

你的代码部分实现了创建文件夹的功能，但和你“仅将名称文本框输入内容作为文件夹名称”的需求不完全匹配：

• 当前代码生成的文件夹名称是：A1单元格内容 + 空格 + 文本框输入内容 + 日期（格式 dd-mm-yyyy），并非仅使用文本框内容
• 代码流程：先弹出确认对话框，点击「是」后执行Submit和Reset，再检查目标路径下是否存在该文件夹——不存在则创建，存在则提示并退出

二、优化建议 #

1. 贴合核心需求：仅用文本框内容作为文件夹名称 #

修改路径拼接逻辑，去掉A1内容和日期（如果不需要的话）：

folderPathWithName = startPath & Application.PathSeparator & frmForm.txtName.Value

如果需要保留日期作为补充，可调整为文本框内容在前：

folderPathWithName = startPath & Application.PathSeparator & frmForm.txtName.Value & Format$(Date, " dd-mm-yyyy")

2. 增加输入合法性校验 #

• 检查文本框是否为空，避免创建无意义文件夹：

If Trim(frmForm.txtName.Value) = "" Then
    MsgBox "请输入文件夹名称", vbExclamation, "提示"
    frmForm.txtName.SetFocus
    Exit Sub
End If

• 过滤Windows系统禁止的文件夹名称非法字符（\/:*?"<>|）：

Dim invalidChars As String
invalidChars = "\/:*?""<>|"
Dim i As Integer
For i = 1 To Len(invalidChars)
    If InStr(frmForm.txtName.Value, Mid(invalidChars, i, 1)) > 0 Then
        MsgBox "文件夹名称包含非法字符，请修改", vbExclamation, "提示"
        frmForm.txtName.SetFocus
        Exit Sub
    End If
Next i

3. 优化路径拼接逻辑 #

避免重复路径分隔符，可使用FileSystemObject的BuildPath方法（后期绑定无需额外引用）：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
folderPathWithName = fso.BuildPath(startPath, frmForm.txtName.Value & Format$(Date, " dd-mm-yyyy"))

4. 调整代码执行顺序 #

当前先执行Submit和Reset再创建文件夹，若Submit出错可能导致数据提交但文件夹未创建。建议先完成文件夹的校验与创建，再执行提交和重置：

'先处理文件夹创建逻辑
startPath = "C:\Users\earld\Desktop\Therapy\Record\"
myName1 = ActiveSheet.Range("A1").Text

'... 插入合法性校验和文件夹创建代码 ...

'确认文件夹创建成功后，再执行提交和重置
Call Submit
Call Reset

5. 避免硬编码路径 #

硬编码固定路径会降低代码通用性，可改为读取系统桌面路径，同时确保父路径存在：

'读取当前用户桌面路径
startPath = Environ("USERPROFILE") & "\Desktop\Therapy\Record\"
'确保父路径存在，避免MkDir报错
If Dir(startPath, vbDirectory) = vbNullString Then
    MkDir startPath
End If

6. 增加错误捕获 #

处理创建文件夹时的意外错误（如权限不足、磁盘满等）：

On Error Resume Next
MkDir folderPathWithName
If Err.Number <> 0 Then
    MsgBox "文件夹创建失败：" & Err.Description, vbCritical, "错误"
    Exit Sub
End If
On Error GoTo 0

内容的提问来源于stack exchange，提问作者Earl John Delos Santos