将表名重命名为表名

我从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