Tablas Dinámicas soluciones y preguntas frecuentes

1.2. Modificar una sentencia SQL de una Tablas Dinámica Excel




Para modificar la sentecia SQL que carga los datos a una Tabla Dinámica Microsoft Excel usa este código de Visual Basic Editor for Appliactions en Microsoft Excel: 


' (c) www.etl-tools.info
Sub ModifyPivotSql()

    Dim pc As PivotCache
    Dim oldSql As String
    Dim newSql As String

    newSql = "SELECT * FROM NEW_FACT_TABLE"
    
    For Each pc In ActiveWorkbook.PivotCaches
        
        oldSql = pc.Sql
        Debug.Print "Before: " & oldSql
        
        pc.Sql = Application.Substitute(pc.Sql, oldSql, newSql)
        
        Debug.Print "After: " & pc.Sql
   
    Next pc
End Sub


Volver a la lista de preguntas frecuentes sobre Tablas Dinámicas