[[20070523093201]]　『マクロでピボットする際のエラー』（紫の若葉マーク）　ページの最後に飛ぶ

『マクロでピボットする際のエラー』（紫の若葉マーク）

ピボットエラー「AddFieldsメソッドが失敗しました」の修正方法はなんでしょうか？

W2000・エクセル2003で以下を実行すると、
「実行時エラー1004　
PivotTableクラスのAddFieldsメソッドが失敗しました」
とでてしまいます。
デバッグを開くと以下の部分が黄色でハイライトされています。

    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").AddFields RowFields:=Array("所属名称", _
        "代表", "原価センタ")

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub 名簿レイアウト変更() ' ' 名簿レイアウト変更 Macro ' マクロ記録日 : 2007/5/21 ユーザー名 : X '

    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.Zoom = 75
    Columns("C:AJ").Select
    ActiveWindow.LargeScroll ToRight:=-2
    Columns("C:P").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:Y").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
End Sub
Sub バス振替ーピボットA1から()
'
' バス振替ーピボットA1から Macro
' マクロ記録日 : 2007/5/21  ユーザー名 : X
'
'

    Columns("A:D").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "ここに貼り付け!C1:C4").CreatePivotTable TableDestination:="", TableName:= _
        "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").AddFields RowFields:=Array("所属名称", _
        "代表", "原価センタ")
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("従業員No").Orientation = _
        xlDataField
    Range("B4").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("代表").Subtotals = Array( _
        False, False, False, False, False, False, False, False, False, False, False, False)
End Sub

 ピボットテーブルを作成する場所をある特定のシートとし
 そのシートにデータを指定せずにピボットテーブルを作成。
 “そのシートを選択して”（←一度記録に残す）
 ピボットテーブルのフィールドリストから
 フィールドとデータアイテムをドラッグ

 と言う手順を記録にとってみるのはどうでしょう。

 現在の物から修正するとすれば、たとえばAAAというシートに作成するとしたら
 >TableDestination:="", 
 　　→TableDestination:="AAA!R1C1",
 >ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
 の前に一行挿入して、下の一行を追加
 　　→Sheets("AAA").Select
 で良いかもしれません。

 (HANA)

Hanaさん、どうもありがとうございます。
早速教えていただいた内容を試してみます

コメント返信：

[ 一覧(最新更新順) ]

[[20070523093201]] 『マクロでピボットする際のエラー』（紫の若葉マーク） ページの最後に飛ぶ

[[20070523093201]]　『マクロでピボットする際のエラー』（紫の若葉マーク）　ページの最後に飛ぶ