人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelのピボットテーブルについての質問です。
VBAを使って,たくさんのシートの中からピボットテーブル一覧を見つけたいのですが,どのようなコードを書いたらいいでしょうか? 例) ファイルPQRには,3つのピボットテーブルがあり,1つめは sheet1 の B100-E130 の範囲にある,2つめは.... という情報をマクロで探す
コードは書けるので,見つけるためのコアの部分のコードのみを提示ください。

●質問者: hichikawa
●カテゴリ:コンピュータ
✍キーワード:Excel VBA コード ファイル ボット
○ 状態 :キャンセル
└ 回答数 : 2/3件

▽最新の回答へ

1 ● SALINGER

使うのはPivotTablesオブジェクトとTableRange1プロパティになります。

コアな部分だけという要望ですが、百聞は一見にしかず、サンプルコードを見ればわかりやすいでしょう。

Sub test()
 Dim ws As Worksheet
 Dim i As Integer
 Dim c As Integer
 
 For Each ws In Worksheets
 c = ws.PivotTables.Count
 If c > 0 Then
 For i = 1 To c
 MsgBox ws.Name & " " & ws.PivotTables(i).TableRange1.Address
 Next
 End If
 Next
End Sub

2 ● ken3memo

Sub aaa()

Dim n As Long

Dim i As Long

Debug.Print "ピボットテーブルの数" & ActiveWorkbook.PivotCaches.Count

For i = 1 To ActiveWorkbook.PivotCaches.Count

Debug.Print ActiveWorkbook.PivotCaches(i).SourceData

Next i

End Sub

こんなんで、いいのかわかりませんが。

何かの参考となれば、幸いです。

[f:id:ken3memo:20090723001847j:image]

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ