La autorización, nos dejó intentar esta solución alternativa, capturando la secuencia de trabajo y hacer un reemplazo en ella
myName secundario ()
pvtTable dévil como PivotTable
SQLString dévil como secuencia
pvtTable determinado = ActiveSheet.PivotTables (1)
Con pvtTable.PivotCache
SQLString = .CommandText 'la pregunta del SQL
SQLString = substituye (SQLString, “2008-01-01”, “2010-01-01”)
.CommandText = SQLString
Extremo con
Submarino del extremo