制作数据透视表的VBA代码不起作用

Question

我的数据透视表出现问题。出于某种原因，这段代码今天早上正在运行，但现在却没有。这是我的代码直到错误。

4
3
Press any key to continue . . .

最后一行是我收到以下错误消息的地方：

  

“应用程序定义或对象定义的错误”。

非常感谢任何帮助。

谢谢，

Answer 1

就像@GSerg在评论中所说，TableDestination需要是范围而不是地址。

现在你为TableDestination分配一个地址，它实际上只是一个字符串（文本），说“$ A $ 3”或类似。您需要将其更改为TableDestination:=WSD2.range(StartPT)，然后您的代码才能正常工作。

请注意，这可能之前有效但不再有效，因为您可能已向文档添加了更多工作表。然后，当VBA试图理解地址“$ A $ 3”时，它无法决定使用哪个工作表，因此会抛出错误。因此，在引用范围时要非常明确，并通过其workbook.worksheets路径进行操作。有关详情，请参阅here。