循环创建大量数据透视表

Question

只想问一些有关VBA excel的东西。

现在我正在做一个项目，以创建很多数据透视表，需要将一些值添加到行和值部分。所以我需要一个宏来循环创建此数据透视表和其中的值。

这是我的代码示例

Angka = Application.InputBox("Berapa Jumlah Agent", Type:=2)
For n = 1 To Angka
Dim WorkRng As Range
Dim DestRng As Range
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range Table", "Enter Range", WorkRng.Address, Type:=8)
Set DestRng = Application.Selection
Set DestRng = Application.InputBox("Range Table", "Enter Range Destination", DestRng.Address, Type:=8)
Dim namaTable() As String
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    WorkRng, Version:=6).CreatePivotTable TableDestination:= _
    "'Pivot'!R8C1:R11C3", TableName:="namaTable(n)", DefaultVersion:=6
Sheets("Pivot").Select
Cells(3, 1).Select
Next n

为了简短起见，我剪切了一些代码。

所以我发现我的错误在第12行->表名：= namaTable（n） 我尝试使用1个表名称，例如“ pivottable1”，但下一个数据透视表将收到错误消息。

问题：

1. 我可以使用功能循环该数据透视表吗？

2. 有某种方法可以循环吗？

谢谢：D