Макрос не может получить правильное имя сводной таблицы

Question

Макрос не может получить правильное имя сводной таблицы

0

У меня есть следующий код (благодаря ответу на этом сайте), который выбирает лист в 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 Excel открывается и таблица импортируется (с использованием надстройки MySQL для Excel), а затем выполняется макрос, макрос работает отлично, давая ответ

Active = project1.mytable

Однако, если эта сводная таблица будет удалена и снова импортирована, Excel изменит новое импортированное имя сводной таблицы на "project1.mytable.2", однако при запуске макроса он все равно возвращается

Active = project1.mytable

Я удаляю сводную таблицу с помощью ctrl + a, а затем Delete, когда у меня есть ячейка в сводной таблице.

Кто-нибудь знает, почему он не подбирает правильное имя?

Jay 12 март 2018, в 13:21

Источник

1

Если он единственный на листе, почему бы просто не использовать Sheets("PivotTable").PivotTables(1).Name ?
Rory 12 март 2018, в 12:17
0

@Jay Не знаю, какова цель твоего кода. Что вам нужно сделать с Name сводной таблицы? Ваш лист всегда содержит одну PivotTable таблицу?
Shai Rado 12 март 2018, в 12:17

Теги:

mysql

vba

excel-vba

excel

pivot-table

1 ответ

Ещё вопросы

Если он единственный на листе, почему бы просто не использовать Sheets("PivotTable").PivotTables(1).Name ?
@Jay Не знаю, какова цель твоего кода. Что вам нужно сделать с Name сводной таблицы? Ваш лист всегда содержит одну PivotTable таблицу?

Shai Rado · Answer 1 · 2018-03-12T11-02-00.000Z

Если в листе "Сводная таблица" имеется только 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

Спасибо за ваш ответ, к сожалению, он по-прежнему возвращает «Active = project1.mytable» вместо «Active = project1.mytable.2». В Excel имя таблицы в инструментах сводной таблицы "project1.mytable.2"
@ Джей, ты уверен, что удалил предыдущую сводную таблицу?
@Jay попробуй отредактированный код, добавь скрипт Debug, скажи что получишь
Я использовал Ctrl + a, а затем нажал Delete, оказалось, что он удаляет всю таблицу, есть ли лучший способ удалить сводную таблицу? Я запустил код здесь: exteoffice.com/documents/excel/… и он говорит мне, что у меня есть только одна сводная таблица во всей книге (как и ожидалось), однако она также имеет неправильное имя для сводной таблицы
Я только что запустил обновленный код. Он вернул "Active = project1.mytable \ r \ n Active = project1.mytable"