将工作表名称重命名为表名称

Question

我从SQL中将一堆数据导入我的excel。所以我有一堆这样的表格：

每个工作表都有一个表名，我可以在表视图区域中查看：

我想知道是否有任何方法可以将表格重新命名为表格名称。

任何帮助都将不胜感激。

Answer 1

尝试这样的事情

Sub RenameSheetToTableName()
    Dim ws As Worksheet
    Dim tbl As ListObject

    For Each ws In ThisWorkbook.Sheets
        On Error Resume Next
        Set tbl = ws.ListObjects(1)
        On Error GoTo 0
        If Not tbl Is Nothing Then ws.Name = tbl.Name
    Next ws
End Sub