変数にするとエラーになる理由は？

解決済

質問者：fxdhhdnixhzdx
質問日時：2013/01/13 08:47
回答数：4件

エクセル2007のピボットテーブルをｖｂａで操作しています。
vbaの仕組みについて分からないので教えてください。

ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("年").PivotItems("2008").ShowDetail = True
だとエラーにならずにピボットテーブルが開かれるのに

Dim intYear As Long
intYear = 2008
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("年").PivotItems(intYear).ShowDetail = True

だとエラーになってしまいます。

エラー内容は
実行時エラー　'1004':
PivotTableクラスのPivotFieldsプロパティを取得できません。
です。

変数にするとエラーになる理由は何でしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： JazzCorp
回答日時：2013/01/13 10:52

ヘルプ曰く、変数の型にご注意、、、

expression.PivotItems(Index)
Index
省略可能です。バリアント型(Variant)の値を使用します。アイテムの名前、またはインデックス番号を指定します。

- 1
- 件

通報する

この回答へのお礼

どうもありがとうございました。

通報する

お礼日時：2013/01/19 10:47

No.4

回答者： keithin
回答日時：2013/01/13 11:03

intYear = 2008

….PivotItems(intYear).…

のように書いていると、該当のピボットテーブルの「２００８番」目のピボットアイテムを探しに行くからです。

２００８番じゃなく「２００８という名前」のアイテムを操作するために
dim strYear as string
strYear = "2008"
….PivotItems(strYear).…

のような段取りが必要ですね。