宏无法获得正确的数据透视表名称

Question

我有以下代码（感谢本网站上的回答），它在 Excel 中选择一个工作表，并从中挑选出数据透视表的名称。

Sub PivotTableName()

    Sheets("PivotTable").Select

    Dim pt As PivotTable

    Set pt = ActivePivotTable

    If pt Is Nothing Then
        Debug.Print "No Active pivot table"
    Else
        Debug.Print "Active = " & pt.Name

    End If

End Sub

Function ActivePivotTable() As PivotTable
    Dim pt As PivotTable, rv
    For Each pt In ActiveSheet.PivotTables
        Debug.Print pt.Name, pt.TableRange2.Address
        If Not pt.Name = "" Then
            Set ActivePivotTable = pt
            Exit Function
        End If
    Next pt
End Function

数据透视表是从 MySQL 数据库导入的，并且是工作表上唯一的数据透视表。如果打开excel电子表格并导入表格（Using MySQL for Excel add-in）然后运行宏，宏运行完美，给出答案

Active = project1.mytable

但是，如果删除此数据透视表，然后再次导入，Excel 会将新导入的数据透视表名称更改为“project1.mytable.2”，但是，当我运行宏时，它仍然返回

Active = project1.mytable

当我在数据透视表中选择了一个单元格时，我使用 ctrl+a 删除数据透视表，然后删除。

有谁知道为什么它没有选择正确的名称？

Answer 1

如果“数据透视表”表中只有 1 个PivotTable，则以下代码就足够了：

Sub PivotTableName()

Dim i As Long

With Sheets("PivotTable")

    If .PivotTables.Count > 0 Then

        ' ==== DEBUG SCRIPT ====
        For i = 1 To .PivotTables.Count
            Debug.Print "Active = " & .PivotTables(1).Name
        Next i

        Debug.Print "Active = " & .PivotTables(1).Name
    Else
        Debug.Print "No Active pivot table"
    End If
End With

End Sub