使用VBA从powerpivot数据获取行数据？

Question

I have imported a table in powerpivot, and were wondering if it's possible to get a row data from that source, by using VBA?

Lets say I import a table to my powerpivot datamodel from an external source, that looks like below:

col1  col2
 1     tt
 2     tg

As the data is not on any sheet, but in the datamodel. Can I treat this datamodel table like an ordinary table with VBA. eg get a specific row or sum a column?

I have tried searching alot for this, but google results and excel seems to me abit messy. I have little experience in VBA, and basically have to idea how/if this is possible.

Answer 1

You can reference the DataModel using CUBE functions, which can be called by VBA if you like. For examples, see https://powerpivotpro.com/2010/06/using-excel-cube-functions-with-powerpivot/

But the question is, why would you want to? To some degree, PowerPivot and the DataModel were designed to let you do complicated things right out of the box with little knowledge of code, instead of having to resort to VBA. Instead, just write whatever measures or calculated columns you need, and bring them into the worksheet via a PivotTable.

Answer 2

Well, you didn't give a lot of details around what you are doing, but I think the script below will be a good place to start. modify to suit your needs.

Sub blah()
Set pt = ActiveSheet.PivotTables(1)
Set pits = pt.PivotFields("???").PivotItems
For Each pit In pits
  If pit.Visible Then 'only acts on visible items
 pit.DataRange.ShowDetail = True
  'pit.name 'contains pivot item name that you could use to refer to a workbook to copy the data on the active sheet to, eg.;
 'ActiveSheet.ListObjects(1).DataBodyRange.Copy Workbooks(pit.Name).Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
 End If
Next pit
End Sub