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获取excel每个sheet页的名称，并生成超级链接

### 回答1：
可以使用 VBA 在 Excel 中循环遍历每一个工作表，然后使用 "Sheet.Name" 属性获取工作表的名称。 例如，以下代码可以在活动工作簿的每个工作表上循环，并在每个工作表的 "A1" 单元格内插入超级链接，其文本为工作表的名称，并将其链接到该工作表。

Sub CreateLinksToSheets()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets

With ws.Range("A1")

.Hyperlinks.Add Anchor:=.Cells(1, 1), Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

End With

Next ws

End Sub

注意：在运行此代码之前，请确保启用了 "Microsoft Forms 2.0 对象库" 引用。 可以通过以下方式启用该引用：

1. 在 Excel 中打开 "开发人员" 工具栏。
2. 单击 "Visual Basic" 按钮。
3. 在 Visual Basic 编辑器中，单击 "工具" > "引用"。
4. 在 "引用" 对话框中，勾选 "Microsoft Forms 2.0 对象库" 前面的复选框，然后单击 "确定" 按钮。

希望这可以帮助你。

### 回答2：
使用VBA可以很方便地获取Excel中每个sheet页的名称，并生成超级链接。下面是一个实现这个功能的例子：

Sub GenerateHyperlinks()
    Dim ws As Worksheet
    Dim hyperlinkSheet As Worksheet
    Dim row As Integer
    
    ' 创建一个名为Hyperlinks的工作表，用于存放超级链接
    Set hyperlinkSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    hyperlinkSheet.Name = "Hyperlinks"
    
    ' 在Hyperlinks工作表中添加标题行
    hyperlinkSheet.Range("A1").Value = "Sheet Name"
    hyperlinkSheet.Range("B1").Value = "Hyperlink"
    
    row = 2
    
    ' 循环遍历所有的sheet页
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> hyperlinkSheet.Name Then ' 排除Hyperlinks工作表
            ' 将sheet页的名称填入Hyperlinks工作表的第一列
            hyperlinkSheet.Cells(row, 1).Value = ws.Name
            
            ' 生成超级链接并插入到Hyperlinks工作表的第二列
            hyperlinkSheet.Cells(row, 2).Formula = "=HYPERLINK(" & Chr(34) & "#" & ws.Name & "!A1" & Chr(34) & ")"
            
            row = row + 1
        End If
    Next ws
    
    ' 设置超级链接列的格式为超级链接样式
    hyperlinkSheet.Range("B:B").Style = "Hyperlink"
    
    ' 调整列宽
    hyperlinkSheet.Columns("A:B").AutoFit
    
    ' 在Hyperlinks工作表中选中标题行
    hyperlinkSheet.Range("A1:B1").Select
End Sub

执行上面的代码后，会在Excel文件中生成一个名为Hyperlinks的工作表，其中的第一列是每个sheet页的名称，第二列是对应的超级链接。可以根据需要自行调整、修改生成超级链接的方式和样式。

### 回答3：
使用VBA编程可以很方便地获取Excel每个 sheet 页的名称，并生成超链接。下面是一个示例代码：

Sub CreateHyperlinks()

    Dim ws As Worksheet
    Dim lnk As Hyperlink
    Dim rng As Range
    Dim shtName As String
    
    ' 遍历所有 sheet 页
    For Each ws In ThisWorkbook.Sheets
    
        ' 获取 sheet 页的名称
        shtName = ws.Name
        
        ' 设置超链接的目标范围
        Set rng = ws.Range("A1")
        
        ' 创建超链接
        Set lnk = ws.Hyperlinks.Add(rng, "#'" & shtName & "'!A1", , , shtName)
        
        ' 设置超链接样式
        lnk.Range.Font.Color = RGB(0, 0, 255)
        lnk.Range.Font.Underline = xlUnderlineStyleNone
        lnk.Range.Font.Size = 12
        
    Next ws

End Sub

这段代码使用了一个 For Each 循环来遍历当前工作簿中的所有 sheet 页。对于每个 sheet 页，获取其名称并将其作为超链接的显示文本。然后，创建一个超链接对象并指定其目标范围为单元格 A1。超链接的目标地址是一个字符串，由 "#"、单引号、sheet 页名称、单引号、叹号和单元格地址组成。最后，通过设置超链接对象的 Range 属性，可以对超链接的样式进行修改，如字体颜色、下划线和大小等。

运行该宏后，每个 sheet 页的单元格 A1 都会生成一个超链接，点击该链接可以跳转到对应的 sheet 页。