実行時エラー '1004'ピボットテーブルエラー

Question

私はあなたの援助を次のエラーで探しています。

ワークブックを開き、ピボットテーブルを含むシートにコピーするVBAコードがあります。

コードは、ピボットテーブルを選択し、日付順にフィルタリングし、いくつかのフィールドをコピーします。

この機能は初回使用時に完全に機能します。しかし、この報告書は、一日に一回以上使用された場合、それは次のエラーを打つ：VBAだけで、システムのデフォルトを使用するよう

問題は、ピボットテーブル名の割り当てです。コードは次のとおりです。

Sheets("Sheet1").Select 

ActiveWorkbook.ShowPivotTableFieldList = False 

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date ").AutoSort _ 
    xlDescending, "Date " 

名前に関係なくピボットテーブルを動的に選択する方法はありますか？

また、レポートが実行されるたびにピボット1になるように、実行終了時に履歴を消去するコードがありますか？

ご協力いただければ幸いです。事前

Answer 1

で

おかげであなたは（あなたが伝えるためにあなたのポストに意図しているようだと、私はこれをmisinterprettedしているかもしれませんが、）一つだけのピボットテーブルがあるだろう知っている場合、よりもインデックスを使用することをお勧めします新しいピボット・テーブルが作成されていて別のピボット・テーブルが存在していた場合は、名前が異なるため、名前は変更されません。お電話に変更します。これはvariety of reasonsのために悪い習慣と考えられているよう

If Sheets("Sheet1").PivotTables.Count <> 0 Then 
    Sheets("Sheet1").PivotTables(1).PivotFields("Date ").AutoSort xlDescending, "Date " 
End If 

注意を私はまた、「選択」の使用を削除しました。