エクセルVBAでピボットテーブルの範囲を自動選択するには？

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月12日(木)09時26分
From: karin

返事削除変更

> 一般的にピボットテーブルのどこかをアクティブにしておいて、Ctrl+Aを押下すると
> そのピボットテーブルの範囲内だけを選択することが可能ですがこれをVBAで
> できないかと思っています。

pivottables(番号).tablerange1.select

PivotTablesオブジェクトはブック内のすべてのPivotTableオブジェクトのコレクションを返します。
ですので(番号)は指定したいピボットテーブルの番号を入力してください。

tablerange1プロパティはPivotTableオブジェクトの下にある位置を取得するプロパティ
になります。
TableRange1はページフィールドを含まない範囲になりますので、データのみの部分を選択します。

これを一度試してみてください。

Message#1 2015年2月12日(木)08時48分
From: futoas

返事削除変更

エクセルVBAでピボットテーブルの範囲を自動選択することは可能でしょうか？

一般的にピボットテーブルのどこかをアクティブにしておいて、Ctrl+Aを押下すると
そのピボットテーブルの範囲内だけを選択することが可能ですがこれをVBAで
できないかと思っています。

一応、マクロの記録からやってみたのですが、以下のようになっていて、Ctrl+Aの
記述が抜けていました。

Sub Macro1()
Range("A1:D10").Select
Range("B1").Activate
End Sub

これでは汎用性がないVBAとなっていますので、どの範囲を選択しても必ず指定した
範囲のピボットテーブルを自動選択ができないかと考えています。

あとは、ごり押しで最終行と最終列を取得していくものですが、これ以外に方法はないですか？