VBA实现添加工作表并根据用户输入重命名的代码

原参考代码的核心错误：
错误尝试给工作表的Select方法赋值输入框返回值，Select是用于触发选中动作的方法，不具备赋值功能，工作表重命名需要直接修改对象的Name属性才能实现。

基础功能版（最小改动原示例代码） #

如果不需要异常容错，仅需实现核心逻辑，最小改动可运行的代码如下：

Sub tenloops1()
    Dim wsNew As Worksheet
    ' 新建工作表并绑定对象引用
    Set wsNew = Worksheets.Add
    ' 直接将输入框的返回值赋值给工作表的Name属性完成重命名
    wsNew.Name = InputBox("Enter Sheet Name")
End Sub

带异常容错的生产可用版 #

如果要覆盖误操作场景，避免代码运行中断，可以使用如下优化版本：

Sub 新建并重命名工作表()
    Dim wsNew As Worksheet
    Dim inputSheetName As String
    
    ' 新建工作表，默认放在最后一个表的后方
    Set wsNew = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
    ' 弹出输入框获取用户输入的名称
    inputSheetName = InputBox("请输入新工作表的名称", "自定义表名")
    
    ' 处理用户点击输入框「取消」的场景
    If StrPtr(inputSheetName) = 0 Then
        wsNew.Name = "临时表_" & Format(Now, "hhmmss")
        Exit Sub
    End If
    
    ' 处理输入为空的场景
    If Trim(inputSheetName) = "" Then
        inputSheetName = "默认表_" & Format(Now, "hhmmss")
    End If
    
    ' 处理重名、含非法字符的报错场景
    On Error Resume Next
    wsNew.Name = inputSheetName
    If Err.Number <> 0 Then
        ' 如果改名失败，自动追加时间戳规避冲突
        wsNew.Name = inputSheetName & "_" & Format(Now, "hhmmss")
        Err.Clear
    End If
    On Error GoTo 0
End Sub

代码说明 #

• 没有依赖ActiveSheet做表引用，直接通过Set wsNew绑定新建的工作表对象，哪怕操作过程中焦点切换也不会引用错表
• 生产可用版覆盖了全量异常场景：用户点输入框取消、输入内容为空、输入名称和已有表重名、输入包含/\:*?[]等Excel不允许的表名字符，不会直接弹出VBA运行错误中断流程
• 可自行调整Worksheets.Add的参数：比如改成Before:=Worksheets(1)即可让新表插入到所有工作表的最前端

内容的提问来源于stack exchange，提问作者Sathish Thirunavukkarasu