未知Excel表格名称时，如何解决VBA Send Keys重命名表格的运行异常？

直接使用SendKeys依赖窗口焦点，稳定性差，且从VBA编辑器运行时会出现焦点错位的问题。下面是更可靠的实现方案，无需提前指定表格或工作表名称，直接对当前选中区域所属的表格进行重命名：

实现代码 #

Sub RenameSelectedTable()
    Dim selectedTable As ListObject
    
    ' 获取当前选中区域对应的表格对象
    On Error Resume Next
    Set selectedTable = Selection.ListObject
    On Error GoTo 0
    
    ' 判断是否成功获取到表格
    If Not selectedTable Is Nothing Then
        Dim newName As String
        newName = InputBox("请输入表格的新名称：", "重命名表格")
        
        ' 验证输入有效性
        If newName <> "" Then
            ' 检查当前工作表内是否已有同名表格
            Dim tbl As ListObject
            Dim nameDuplicate As Boolean
            nameDuplicate = False
            
            For Each tbl In ActiveSheet.ListObjects
                If tbl.Name = newName Then
                    nameDuplicate = True
                    Exit For
                End If
            Next tbl
            
            If Not nameDuplicate Then
                selectedTable.Name = newName
                MsgBox "表格已成功重命名为：" & newName, vbInformation
            Else
                MsgBox "该名称已存在，请输入其他名称。", vbExclamation
            End If
        Else
            MsgBox "名称不能为空，请重新输入。", vbExclamation
        End If
    Else
        MsgBox "请先选中表格中的任意单元格或区域。", vbExclamation
    End If
End Sub

代码说明 #

• 自动识别表格：通过Selection.ListObject直接获取当前选中区域所属的表格，无需手动指定表格名称或工作表。
• 输入验证：
  • 检查输入名称是否为空，避免无效操作。
  • 遍历当前工作表的所有表格，确保新名称不重复（Excel要求同一工作表内的表格名称唯一）。
• 友好反馈：通过消息框告知用户操作结果，提升使用体验。

为什么不推荐用SendKeys？ #

SendKeys的执行完全依赖当前窗口的焦点：

• 从工作表按钮触发时，焦点在Excel工作表，所以能生效；但从VBA编辑器运行时，焦点在编辑器窗口，按键会发送到VBA界面而非工作表，导致失效。
• 即使在工作表中运行，若操作过程中焦点意外切换（比如弹出其他窗口），也会导致按键执行错误，稳定性极差。

内容的提问来源于stack exchange，提问作者Abby Vilchis Gómez