Проверка дублирования кэша сводных таблиц

[sergo44441]

Добрый день, уважаемые знатоки.
Хочу спросить вашего совета по такому поводу:
У меня есть таблицы-источники данных в аксессе. На их основе в экселе развернуты _сводные_ таблицы. На основе одной таблицы-источниках может быть построено несколько сводных в разных представлениях.
Размер файла получается очень большим. Можно ли проверить, не дублируется ли кэш какой-либо из сводных таблиц?

[_Boroda_]

Код Выделить Развернуть

Sub tt()
For i = 1 To ActiveWorkbook.Connections.Count
    Range("A" & i) = ActiveWorkbook.Connections(i).Name
    Range("B" & i) = ActiveWorkbook.Connections(i).OLEDBConnection.CommandText
Next i
End Sub[code]
Выводит имя базы и имя таблицы

[sergo44441]

Спасибо большое, помогло. Проверил с помощью получившейся таблицы соответствия, где были дублирующиеся подключения, и поправил их