色んなサイトから既出ソースを拝借して試していますが、どのソースもプロシージャのエラーが出て難航しています。
データソースに"A"というNamedTableを指定したピボットテーブルが多数あり
その全てにおいてデータソースを"B"というNamedTableに変更したい
一案として下記を試していますが、やはり pt.ChangePivotCacheにプロシージャエラーが出ます。
何がいけないのかご指南頂ければ幸いです。
よろしくお願いいたします。
Sub Change_Pivot_Source()
Dim pt As PivotTable
For Each pt In ActiveWorkbook.Worksheets("データソースを変更したPivotTableがあるシート名").PivotTables
pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:="B")
Next pt
End Sub
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
あと、ソースが変わることでピボットの結果の表が上か下かに大きくなって、例えば、1つのシートにピボットがいくつもあると、他のピボットのエリアと重なることになってしまってエラー・・・ですとか・・・。
No.2
- 回答日時:
どこかの列が非表示になっていて列名が抜けているとか、数式が入っているけど列名だけが抜けているとか、思わぬ結合が含まれていた、とかないでしょうか?
一度、オリジナルのソースの表を別のシートかブックに形式を選択して貼り付けにて、「値」で貼り付けして、それをソースに名前の定義と複数ピボットの作成をして、テストしてみたらどうなるでしょうか?
No.1
- 回答日時:
こちらで、このまんまのコードをコピペし・・・、
・("データソースを変更したPivotTableがあるシート名")をピボットを2つ作ったシートの名前に変え、
・SourceData:="B" の B の部分を、2つめの範囲定義した名前に変えてみたら、
・・・エラー無く実行でき、2つのピボットのソースもそのように変更・反映されていました。
2010の32bit でやりました。
”B”という名前のまんまだったら、全角・半角などの入力違いとかは、ないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excel ピポットテーブルの更新について 1 2022/05/13 16:12
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
複数のピボットテーブルを一括でデータ更新したい
Access(アクセス)
-
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
ブックのピボットを別ブックにコピーして自動更新したい
Excel(エクセル)
-
-
4
VBA ピボットテーブル自動更新
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
7
ピボットグラフのソースについて
Excel(エクセル)
-
8
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
9
Excel VBA ピボットテーブルにて、 最終行の取得の仕方を教えてください
Excel(エクセル)
-
10
VBAで型が一致しないエラー(バージョンの問題?)
Excel(エクセル)
-
11
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PivotTableのデータソースを一...
-
URLが青くならない
-
パワーポイント:テキストボッ...
-
リンク先のURLを別の文字にする...
-
Excel で下線が消えてしまうの...
-
Google Keepで数字に勝手に下線...
-
Latexにおける下線のひき方のコト
-
パワーポイントの見出しの線の...
-
seesaaブログのコメント欄を削...
-
アンダーラインを引くやり方
-
Wordで作成した文章をコピーし...
-
AppleのNumbersというアプリで...
-
Word で下線の色の変え方
-
ホームページにバナーを載せた...
-
outlook2003にて新規メッセージ...
-
Googleアカウントの名前変更出...
-
HTMLのつくりにおいて
-
アンダースコア(下線)のあるメ...
-
HTMLのbody内に<style>~</styl...
-
CSSでインラインフレームを非表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PivotTableのデータソースを一...
-
ブログサイトの見分け方(Movab...
-
文字コードを指定すると文字化...
-
アクセスカウンターが表示され...
-
再びステータスバーにエラーが...
-
VC++ 6.0 プリコンパイル済みヘ...
-
抗菌ウェットティッシュに発が...
-
ホームページを作っていてトッ...
-
バナーを簡単につくる方法
-
リンク先のURLを別の文字にする...
-
Excel で下線が消えてしまうの...
-
URLが青くならない
-
パワーポイント:テキストボッ...
-
Google Keepで数字に勝手に下線...
-
AppleのNumbersというアプリで...
-
HTMLのbody内に<style>~</styl...
-
アンダースコア(下線)のあるメ...
-
エクセルのセルの下線が消えない
-
AUTOCAD文字の下に同じ長さの線...
-
Latexにおける下線のひき方のコト
おすすめ情報
試して頂きありがとうございます。
確かに自分でも他のデータセットを用意して試したら行けました。
データソースそのものに問題があるようで…もはや断念するしかなさそうです。
考えられる要因としては空白のセルが要所要所にあるところくらいですが、
これは元データも同様なので…VBAだと極端にセンシティブになるのか…