excel vba – 如何将数据透视表中的所有字段复制到同一工作表中的其他单元格

我有一个用户窗体在Excel中的combobox，当我selectcombobox中的东西，它会自动更新某个工作表中的数据透视表。 现在我想把现在在数据透视表中的所有字段都复制到另一个库中。 我需要写在VB中，但由于某种原因，它不会复制单元格。 那是我的代码：

Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells x.Copy Application.Goto Reference:="pivot_paste" x.Paste 

除了最后一行，因为某种原因，请帮忙

Answer 1

x.Paste意思是把它复制到范围x，这显然不是你想要的。 像这样的东西应该工作：

 Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells x.Copy Destination:=ActiveSheet.Range("pivot_paste")