Обновление picot Excel, сохранение и закрытие в коде доступа VBA

Question

Я использую следующий код для обновления таблиц сводной таблицы Excel из приложения Access. Каков наилучший способ сохранить и закрыть приложение Excel после обновления pivots? В моей последней попытке код пытался сохранить и закрыть перед обновлением опорных точек.

Private Sub Command161_Click() 
    Dim objXL As Object, x 

    On Error Resume Next 
    Set objXL = CreateObject("Excel.Application") 
    With objXL.Application 
    .Visible = True 
    'Open the Workbook 
    .Workbooks.Open "myfilepath.xls" 
    'Refresh Pivots 
    x = .ActiveWorkbook.RefreshAll 
    End With  
    Set objXL = Nothing 
End Sub 

Answer 1

Задайте для свойства pivotable.pivotcache.backgroundquery значение False для синхронных обновлений.