Returns the data source for the PivotTable report, as shown in the following table. Read-write Variant.
Data source | Return value |
---|---|
Microsoft Excel list or database | The cell reference, as text. |
External data source | An array. Each row consists of an SQL connection string with the remaining elements as the query string, broken down into 255-character segments. |
Multiple consolidation ranges | A two-dimensional array. Each row consists of a reference and its associated page field items. |
Another PivotTable report | One of the above three kinds of information. |
Remarks
This property is not available for OLE DB data sources.
Example
Assume that you used an external data source to create a PivotTable report on Sheet1. This example inserts the SQL connection string and query string into a new worksheet.
Set newSheet = ActiveWorkbook.Worksheets.Add
sdArray = Worksheets("Sheet1").UsedRange.PivotTable.SourceData
For i = LBound(sdArray) To UBound(sdArray)
newSheet.Cells(i, 1) = sdArray(i)
Next i