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

質問

エクセル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プロパティを取得できません。
です。

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

回答No.3

K Kazz（@JazzCorp） · ベストアンサー

ヘルプ曰く、変数の型にご注意、、、
expression.PivotItems(Index)
Index
省略可能です。バリアント型(Variant)の値を使用します。アイテムの名前、またはインデックス番号を指定します。

お礼

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

回答No.4

keithin

intYear = 2008
….PivotItems(intYear).…

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

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

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

お礼

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

回答No.2

jaham

PivotItems("2008")
と
PivotItems(intYear)

の違いが理解できていないからです
なぜ　"2008"　としているかを考えましょう

お礼

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

回答No.1

maiko0318

"2008"が文字で、intYearが数字だから？かな

お礼

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