Получить выбранное имя сводной таблицы - Excel VBA

Question

У меня есть две сводные таблицы на одном листе excel. Я хотел бы знать, как вы получаете имя выбранной сводной таблицы с Excel VBA?

Я пробовал ActiveSheet.PivotTables.Selected, но это не поддерживается.

Answer 1

Вы просто использовать:

ActiveCell.PivotTable.Name 

или с небольшим количеством обработки ошибок:

Dim PT as PivotTable 
On Error Resume Next 
Set PT = Activecell.PivotTable 
On Error Goto 0 
If not PT is nothing then msgbox pt.name