vba 获取当前超级表名称

您可以使用以下 VBA 代码获取当前激活的 Excel 表格的名称：

Dim tableName As String
tableName = ActiveSheet.ListObjects(1).Name

这段代码假定您的 Excel 表格中只有一个超级表。如果您的表格中有多个超级表，需要根据您的具体情况进行修改。

相关问题

VBA 获取当前工作簿当前超级表名称

以下是获取当前工作簿中当前活动工作表的超级表名称的 VBA 代码：

Dim tableName As String
tableName = ActiveSheet.ListObjects(1).Name

这段代码假定您的 Excel 工作簿中只有一个超级表，并且当前活动的工作表中有超级表。如果您的工作簿和工作表中有多个超级表，需要根据您的具体情况进行修改。

Vba更改当前工作表名称

您可以使用以下代码：

Sub ChangeSheetName()
    '将当前工作表的名称更改为"New Sheet Name"
    ActiveSheet.Name = "New Sheet Name"
End Sub

将此代码复制并粘贴到 VBA 编辑器中（按下 Alt + F11），然后在工作表中运行它即可更改当前工作表的名称。将 "New Sheet Name" 替换为您想要的任何名称。