Excel VBA代码只成功运行一次

我正在试着运行下面的代码，它运行得很好，完成了任务，但只运行了一次。然后它开始抛出运行时错误1004：应用程序或对象定义的错误。上下文：我有大约15个数据透视表，共10个工作表，每周更新一次。我每周都会更改源数据，并希望更新数据透视表

我发现了错误

Set newPT = wb.Worksheets("Per Location").PivotTables.Add(PivotCache:=PTCache, TableDestination:=wb.Worksheets("Per Location").Range("a200"))

---

如果这件事发生了

Set newPT = wb.Worksheets("Per Location").PivotTables.Add(PivotCache:=PTCache, TableDestination:=wb.Worksheets("Per Location").Range("a200"))

它无法创建透视表，因为它已具有相同的名称。我建议在添加旧表之前尝试显式指定名称或删除

---

您仍然可以尝试将旧表与新缓存链接。

在哪一行出现错误？我已更新了帖子

Set newPT = wb.Worksheets("Per Location").PivotTables.Add(PivotCache:=PTCache, TableDestination:=wb.Worksheets("Per Location").Range("a200"))