VBA复制数据透视表并删除与数据的连接

想知道是否有任何方法可以使用VBA将透视表复制到另一个工作表，删除与datasource的链接，以便基于该日期创建快照

干杯

---

吉莉是的，给你：

Sub ptValues()

    Dim pt As PivotTable
    Dim data As Variant
    Dim dest As Range

    Set pt = ActiveSheet.PivotTables(1) 'set pivot table
    data = pt.TableRange1 'read data into variant array
    Set dest = Cells(1, 10) 'set destination range left upper corner

    dest.Resize(UBound(data, 1), UBound(data, 2)).Value2 = data 'write data to worksheet


End Sub