ここから本文です

以下の環境とプログラムでピボットテーブルを作成したいのですが エラーが発生し...

アバター

ID非公開さん

2017/10/416:38:41

以下の環境とプログラムでピボットテーブルを作成したいのですが
エラーが発生して原因がわからずお手上げ状態です。
どなたか教えて頂けたら幸いですm(_ _)m

【環境】
・Windows1

0
・VB6
・Excel2016

【プログラム】
Dim PCache As PivotCache
Dim PvTbl As PivotTable

' ピボッドキャッシュ の作成
Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="元データ!R2C2:R" & ln & "C4")

' ピボッドテ-ブル の作成
Set PvTbl = PCache.CreatePivotTable(TableDestination:="", TableName:="ピボットテーブル1") ←ここでエラー

' フィ-ルドの配置
With PvTbl
.PivotFields("日付").Orientation = xlColumnField '列の指定
.PivotFields("会社名").Orientation = xlRowField '行の指定
.PivotFields("合計個数").Orientation = xlDataField
End With

【エラー内容】
オートメーション エラーです。サーバーによって例外が返されました。

閲覧数:
19
回答数:
1
お礼:
500枚

違反報告

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

プロフィール画像

カテゴリマスター

2017/10/1014:05:21

こんにちは。
ピボットを作成するvbaコードを自動で作成して、今のコードと比較してください

もともと動作していたコードだったのでしょうか疑問です

この質問は投票によってベストアンサーに選ばれました!

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

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

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

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

閉じる

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