[[20111109153151]]　『PivotItems で、実行エラー '1004'が出力されて困』（Kobe osamu）　ページの最後に飛ぶ

『PivotItems で、実行エラー '1004'が出力されて困っています。』（Kobe osamu）

 ご存じの方は教えてください。

 実行エラー '1004'
 PivotFieldクラスのPivotItemsプロパティを取得できません。
 ・Windows XP 最新レベル、
 ・Office2007「Excel2007」最新レベルを使用しています。

 以下のステートメントで、★はエラーになるが、○はエラーにならない。

  ActiveSheet.PivotTables(k).ChangePivotCache ActiveWorkbook. _
  PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ピボットデータ _
       , Version:=xlPivotTableVersion12)

    With ActiveSheet.PivotTables(k).PivotFields("月度／期")
      .PivotItems("2011/4/1").Visible = False          ← ★エラーになる
      .PivotItems("2011/5/1").Visible = False          ← ★エラーになる
      .PivotItems("2011/6/1").Visible = False          ← ★エラーになる
      .PivotItems("2011年度1/4期").Visible = False     ← ○エラーにならない
      .PivotItems("2011/7/1").Visible = False          ← ★エラーになる
      .PivotItems("2011/8/1").Visible = False          ← ★エラーになる
      .PivotItems("2011/9/1").Visible = False          ← ★エラーになる
      .PivotItems("2011年度2/4期").Visible = False     ← ○エラーにならない
      .PivotItems("2011年度上期").Visible = False      ← ○エラーにならない
      .PivotItems("2011/10/1").Visible = True          ← ★エラーになる
      .PivotItems("2011/11/1").Visible = True          ← ★エラーになる
      .PivotItems("2011/12/1").Visible = True          ← ★エラーになる
      .PivotItems("2012/1/1").Visible = True           ← ★エラーになる
      .PivotItems("2012/2/1").Visible = True           ← ★エラーになる
      .PivotItems("2012/3/1").Visible = True           ← ★エラーになる
    End With

 こんにちは。

 参考にして下さい。
http://pvttbl.blog23.fc2.com/blog-entry-72.html

 （OtenkiAme）

コメント返信：

[ 一覧(最新更新順) ]

[[20111109153151]] 『PivotItems で、実行エラー '1004'が出力されて困』（Kobe osamu） ページの最後に飛ぶ

[[20111109153151]]　『PivotItems で、実行エラー '1004'が出力されて困』（Kobe osamu）　ページの最後に飛ぶ