エクセルのシートからピボットテーブルを作るマクロのエラー

Question

マクロの初心者です。

毎月エクセルの一覧表からピボットテーブルを作っています。

ルーチンワークなので、マクロで記憶したいのですが、シートからピボットテーブルをつくる

最初の段階でマクロエラー１００４が出てしまいます。ＶＢＥででデバックすると以下の太字部分が

黄色くなります。

Sub 月次未払表()

'

' 月次未払表 Macro

'

    Sheets.Add

    ActiveWorkbook.Worksheets("9月").PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ3").PivotCache. _        CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1" _        , DefaultVersion:=xlPivotTableVersion12

    Sheets("Sheet1").Select

    Cells(3, 1).Select

    With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")

        .InGridDropZones = True

どこを直せばよいのでしょうか？

Answer 1

y sakuda さん、いつもアドバイスありがとうございます。

HIRO A さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

Excel のシートでピボットテーブルを作成時にマクロのエラーが発生するということなのですね。

作成されているコードに何かの問題が起きている可能性が高いかと思います。

こちらのコミュニティでは VBA に関しての質問ですと内容によって情報が集まりにくいことがあるので VBA フォーラムに質問してみることで違った情報が得られるのかもしれません。

投稿されるときはマクロのコードなどの詳細を書いて投稿してみることで有力な情報がもしかしたら得られるのかもしれません。

お力になれずすみませんが、 VBA フォーラムも活用してみてくださいね。

Answer 2

y sakuda さん、いつもアドバイスありがとうございます。

HIRO A さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

同様の問題でこちらのスレッドを見られた方にも参考となるよう [ 回答としてマーク ] をさせていただきました。

また何かありましたらマイクロソフト コミュニティをご利用ください。

Answer 3

9月と言うシートが存在しないか、そのシートにピボットテーブル3と言う名前のテーブルがないと言う意味です。

多分ピボットテーブル名が原因だと思いますが、このテーブル名は自動付番されますので、やるたびに名前が変わります。

テストしようがないのですが、提示されたコードはどういう状態で記録されたのでしょうか？

OfficeXPはもう持っておりませんので、本当のところどうなのかは確認できませんが、少なくともOffice2003 で新規のピボットテーブルを作成するコードとは異なります。

（テーブル３から何かしようとされてます）

汎用的なものを作るのでしたら、マクロ記録では無理です。VBAを勉強してください。