VBA Tools

Krótka procedura, jednakże bardzo przydatna.

Wykonując raport możemy uaktualnić dane podając nowy zakres lub źródło połączenia (zmiana zapytania SQL), ale czasem potrzebą jest usunięcie tabel, które w wyniku specyfiki konfiguracji danych są niepożądane. Poniższa procedura ułatwia ten zabieg.

Sub usun()
Call kill_PT_by_name("Tabela przestawna1") 'nazwa Tabeli
End Sub

Sub kill_PT_by_name(Nazwa As String)
'OShon from VBATools.pl
Dim wks As Worksheet, rng As Range, pt As PivotTable
Set wks = ActiveSheet
Set pt = wks.PivotTables(Nazwa)
Set rng = pt.TableRange2
 rng.Delete
Set rng = Nothing
Set pt = Nothing
Set wks = Nothing
End Sub