Tablas Dinámicas soluciones y preguntas frecuentes

1.1. Modificar fuente y parámetros de conección de un Excel Crosstab



Para modificar fuente y parámetros de conección en Tablas Dinámicas Microsoft Excel usa este código de Visual Basic Editor for Appliactions in Microsoft Excel:


' (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