ピボットテーブルをリフレッシュする

Question

Excel 2013では、ピボットテーブルをリフレッシュするVBA構文は何ですか？私は以下の両方のオプションを試してみましたが、いずれもピボットテーブルを更新しませんでした。それに追加する

'Does Not Work 
Sheets("Sheet1").Select 
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh 
'Does Not Work 
For Each Sheet In ThisWorkbook.Worksheets 
    For Each Pivot In Sheet.PivotTables 
     Pivot.RefreshTable 
     Pivot.Update 
    Next 
Next 

EDIT
---私は実際には、ピボットテーブルを更新THEN埋め込まれたMySQLのクエリの第一をリフレッシュする必要がしています。これで

Answer 1

私の問題は、それを更新する前に、関連する接続にFalseにBackgroundQueryを設定することで解決した。

With ThisWorkbook.Connections(1).OLEDBConnection 
    .BackgroundQuery = False 
    .Refresh 
End With 
Pivot.RefreshTable 

（適切な接続オブジェクトでOLEDBConnectionを置き換える）

BackgroundQueryとに設定されていること表示されますTrue、コードが終了するまでデータの取得が完了しません。あなたは行って、これを見ることができます。このループは終了したことがない

With ThisWorkbook.Connections(1).OLEDBConnection 
    .BackgroundQuery = True 
    .Refresh 
    Do While .Refreshing 
     DoEvents 
    Loop 
End With 

、およびExcelのショーのステータスバー「背景クエリを実行する（キャンセルするにはここをクリック）」。クリックすると「すべての行がフェッチされました」というダイアログが表示されますが、クエリはまだ実行中です。 https://stackoverflow.com/a/25054870/3590073