ここから本文です

VBA初心者です。 ピボットテーブルを自動で作成するマクロを作りたいと思っていま...

yos********さん

2019/1/2216:38:17

VBA初心者です。
ピボットテーブルを自動で作成するマクロを作りたいと思っています。
マクロ自動記録したコードに手を加えながら作成しています。

ピボットのキャッシュを取得するところまでは一応問題ないようなのですが、
ピボットテーブルを作成する行になるとエラーが発生してしまい、原因がわからずにおります。
どなたかご教授いただけると幸いです。

以下、問題のコード↓


Sub Macro1()

Dim dataname As String
dataname = ActiveSheet.Name

' データの範囲を変数として保存
Dim pivotArea As String
pivotArea = Range(Range(Range("A1"), Range("A1").End(xlToRight)), _
Range(Range("A1"), Range("A1").End(xlToRight)).End(xlDown)).Address(, , xlR1C1)

Dim ws As Worksheet
Dim pvc As PivotCache
Dim pvt As PivotTable
Set ws = Sheets.Add

' ピボットを作成するシートを新たに追加
On Error Resume Next
Worksheets(" ws").Select
ActiveSheet.Delete
Application.DisplayAlerts = False
On Error GoTo 0
Sheets.Add
ActiveSheet.Name = "ws"

'ピボットのデータキャッシュを作成
Set pvc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="dataname!pivotArea")

'ピボットテーブルを作成
Set pvt = pvc.CreatePivotTable(TableDestination:=ws.Name & "!R3C1", _
TableName:="ピボットテーブル1", _
DefaultVersion:=xlPivotTableVersion10)


End Sub



以上、宜しくお願い致します。

※作るにあたり参考にしたサイトは以下のものです。
http://www.excel.studio-kazu.jp/kw/20150420152015.html
https://teratail.com/questions/118257

閲覧数:
41
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2019/1/2217:12:12

>ピボットテーブルを作成する行になるとエラーが発生
どのステップで、どんなエラーが発生しているのですか?
症状を明確に書かないと回答者は苦労します。

とりあえず、↓はエラーになりそう。

SourceData:="dataname!pivotArea")



SourceData:=dataname & "!" & pivotArea)

  • 質問者

    yos********さん

    2019/1/2217:50:09

    解答、ご指摘ありがとうございます。
    エラーのある箇所は以下のところです。

    'ピボットテーブルを作成
    Set pvt = pvc.CreatePivotTable(TableDestination:=ws.Name & "!R3C1", _
    TableName:="ピボットテーブル1", _
    DefaultVersion:=xlPivotTableVersion10

    エラー内容は以下のようなものです。
    エラー 5 「プロシージャの呼び出し、または引数が不正です。
    と出てきます。

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/1/22 23:17:29

回答ありがとうございます!
助かりました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる