Option Explicit
RefreshPowerPivotModel
Public Sub RefreshPowerPivotModel()
    Const bookPath = "C:\Temp\powerPivotBook.xlsx"
    Dim xlApp, pBook
    Set xlApp = CreateObject("Excel.Application")
    xlApp.ScreenUpdating = False
    xlApp.Visible = True 'Можно удалить, если есть гарантия, что не будет проблем
    Set pBook = xlApp.Workbooks.Open(bookPath)
    pBook.Model.Refresh
    pBook.Close True
    xlApp.ScreenUpdating = True
    xlApp.Quit
End Sub