Neu-Quelle Daten aus der PivotTable-Cache

Ich versuche zu extrahieren, die Quelle der Daten aus einer PivotTable mit einer PivotTable-cache und legen Sie es in ein leeres Arbeitsblatt. Ich habe Folgendes versucht, aber es gibt ein application-defined or object-defined error.

ThisWorkbook.Sheets.Add.Cells(1,1).CopyFromRecordset ThisWorkbook.PivotCaches(1).Recordset

Dokumentation zeigt an, dass PivotCache.Recordset einer ADO-Typ, also das sollte funktionieren. Ich habe die ADO-Bibliothek aktiviert in den Referenzen.

Irgendwelche Vorschläge, wie dies zu erreichen?

  • Was ist der Wert zur Laufzeit von ThisWorkbook.PivotCaches(1).Recordset?
  • Es ist ein recordset mit recordcount = 49, aber wenn ich versuche, Folgendes zu tun ich bekomme auch application-defined or object-defined error: Dim objRecordset As ADODB.Recordset Set objRecordset = ThisWorkbook.PivotCaches(1).Recordset
  • Setzen Sie das "ThisWorkbook".PivotCaches(1).Recordset in watch-Fenster, um zu sehen, welche genaue Art es ist. Das sollte helfen.
  • Zur Laufzeit wird die variable Typ Integer/Variant. Natürlich objRecordset ist vom Typ recordset. Sobald die app ausgeführt wird "ThisWorkbook".PivotCaches(1).Recordset zeigt Application-defined or Object-defined Fehler im watch-Fenster. Führt mich zu glauben, dass vielleicht, die ich vergessen habe einen Verweis. Vielleicht etwas bestimmtes zu PivotCache? Vielen Dank für Ihre Hilfe.
InformationsquelleAutor Kuyenda | 2009-09-18
Schreibe einen Kommentar