Mostrar el MDX de un Pivot Table

Por cortesía de mi compañero, el gran José Rivera (más conocido como Joe en el bajo mundo), comparto con ustedes una forma interesante de mostrar la consulta MDX que genera un Pivot Table desde Excel, lo cual puede usar para validar sus datos o saber cómo ejecuta el query el cliente de Excel.

Para esto necesitan agregar un pequeño script dentro del botón de Visual Basic en el ribbon de Developer en su Excel 2007:

Luego de eso incluyen el siguiente script:

Sub CheckMDX()
  Dim strMDX As String
  strMDX = ActiveSheet.PivotTables(1).MDX
  MsgBox strMDX
End Sub

Finalmente, el MDX resultante se mostrará en el Message Box:

Alan