ピボテ 作成と同時名前を指定する方法

質問

エクセルｖｂａでピボットテーブルの作成と同時に
ピボットテーブルの名前を付ける方法はありますか？

Dim pvt As PivotTable
Dim rngData As Range

'元データを変数に格納
Set rngData = ActiveSheet.Range("A1").CurrentRegion

Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("c3"))

これでピボットテーブルの作成は出来ますが、
名前は「ピボットテーブル1」と勝手についてしまいます。

作成と同時名前を指定する方法を教えてください。
名前は「test」としたいです。

今は、
Sub Sample1()
Dim i As Integer
For i = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables.Item(i).Name = "test"
Next
End Sub
としています。

回答No.1

keithin · ベストアンサー

＞ピボットテーブルの作成と同時に
＞ピボットテーブルの名前を付ける方法はありますか？

Set pvt = _
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=rngData). _
CreatePivotTable(TableDestination:=Range("c3"), tablename:="test")

とかで。

＃言わずもがなですが、既にシート上にtestがあったらダメです。

お礼

ご回答ありがとうございます。