Actualizar origen de datos de Excel: atajo y con VBA

En Excel la manera más rápida de actualizar las tablas dinámicas y sus orígenes de datos es presionando:

Mediante código es sencillísimo:

Sub Actualizar()
    ThisWorkbook.RefreshAll
End Sub

En el caso de que solamente queramos actualizar una conexión y una tabla dinámica, veremos dos opciones. Es importante recordar que si la tabla dinámica actualizada comparte la misma caché de datos con otras, éstas también se actualizarán.

Sub Actualizar1()
    ThisWorkbook.Connections("NombredelaConexión").OLEDBConnection.Refresh
    Sheets("Hoja1").PivotTables("Nombre Tabla Dinámica").PivotCache.Refresh
End Sub

Sub Actualizar2()
    With Sheets("Hoja con la conexión").Range("A1")
    .ListObject.QueryTable.Refresh BackgroundQuery:=False
    End With
Sheets("Hoja1").PivotTables("Nombre Tabla Dinámica").PivotCache.Refresh
End Sub