Excel VBA: ピボットテーブルの値貼り付け

タイトルのとおりなのですが、ピボットテーブルを含むシートを新しいシートとして値貼り付けするようなVBAはどう書けばよいのでしょうか・・・？
ご教授下さい。

No.2 ベストアンサー 回答者： kigoshi 回答日時： 2006/02/08 12:04

If ActiveSheet.PivotTables.Count = 0 Then

　ピボットテーブルがないときの処理
Else
　ピボットテーブルがあるときの処理
End If

でできるかと。
ActiveSheetはWorksheets(***)など適宜かえてください。

役に立ちますように。

この回答へのお礼

できました！大変助かりました！！有難うございました。

お礼日時：2006/02/08 13:03

No.1 回答者： kigoshi 回答日時： 2006/02/08 10:15

単にシート全体を値貼り付けすればいいだけでしたら。

Sub V_Paste()
Cells.Select
Selection.Copy
Sheets.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues
Cells(1, 1).Select
End Sub

こんな感じでしょうか。

うまくできますように。

この回答への補足

kigoshi様、早速のご回答ありがとうございました。
ピボットテーブルを含むシートの場合にのみ、機能するようにしたいのですが、どのようにすれば宜しいのでしょうか・・・？

補足日時：2006/02/08 11:42