Crosstaby (tabele przestawne, cube'y) MS Excel - FAQ i rozwiązania problemów
1.1. Modyfikacja źródła danych i parametrów połączenia tabeli przestawnej Excel
Modyfikacja źródła danych i parametrów połączenia tabeli przestawnej MS Excel
W celu modyfikacji źródła danych i parametrów połączenia we wszystkich tabelach przestawnych w arkuszu należy użyć następującego kodu w edytorze Visual Basic:
Uwaga: Należy użyć 'immediate window' edytora VBA aby śledzić dane wyjściowe debuggera (Ctrl+G z poziomu VBA)
' (c) www.etl-tools.info
Sub ModifyPivotSource()
Dim pc As PivotCache
Dim oldDBSID As String
Dim newDBSID As String
oldDBSID = “DWOLD”
newDBSID = “DWNEW”
For Each pc In ActiveWorkbook.PivotCaches
pc.Connection = Application.Substitute_
(pc.Connection, oldDBSID, newDBSID)
Debug.Print "After: " & pc.Connection
Next pc
End Sub
?>