0

ピボット テーブル (COUNTRY、CITY、PERSON) に 3 つのスライサー フィルターがあり、すべての最終結果をループして、データを pdf として保存したいと考えています。

したがって、COUNTY と CITY を選択した場合、すべての PERSON からループし、それらのデータを PDF に保存してから、次の PERSON に移動する必要があります。

私は試してきましたが、現在情報が過負荷になっており、それを機能させる方法がわかりません:

Sub saveResultsAsPDF ()

Dim mySlicerCache As SlicerCache 
Dim mySlicerCacheLevel As SlicerCacheLevel 
Dim mySlicerItem As SlicerItem

Set mySlicerCache = ActiveWorkbook.SlicerCaches("PERSON") 
Set mySlicerCacheLevel = mySlicerCache.SlicerCacheLevels(2)

For Each mySlicerItem In mySlicerCacheLevel.SlicerItems    
    saveRangeToPDF
Next
End Sub
4

1 に答える 1

0

私はスライスに精通していませんが、あなたの一般的な質問を理解している場合は、ピボットテーブルを操作し、結果をPDFに保存してから、繰り返します。これはどう：

  1. ピボットを操作します。フィルタなどを追加します。準備ができたらピボットを更新します。
  2. ワークシート全体を新しいPDFファイルとして保存します。
  3. ループを続けます。
于 2012-11-14T20:56:10.563 に答える