Solved

Updating pivot tables in a workbook

Posted on 2009-05-12
4
616 Views
Last Modified: 2012-05-06
Whenever I run the macro below more than once I get this error message: "Excel cannot complete this task with available resources. Choose less data or close other applications." And then I get a VBA error message that says, "Run-time error '5': Invalid procedure call or argument."

I need to apply a macro that updates pivot table ranges across an entire workbook, my first attempt at this was to make one macro but I got the error message above. What I did then was to split the macro into three pieces. I run one macro and then it would update the pivot tables in sheets: "Center", "Sony", "Howard", and "Conference". Then i would run another macro that would do it in the sheets after that, etc. I can update the first set of sheets but when I try and run the second maco half way through I get the error message that I got above.


Public Sub UpdAllPivots()
  Dim shtThing As Worksheet
  Dim pvtThing As PivotTable
  For Each shtThing In Application.Sheets
  If shtThing.Name = "Center" Or shtThing.Name = "Sony" Or shtThing.Name = "Howard" Or shtThing.Name = "Conference" Then
    For Each pvtThing In shtThing.PivotTables
      pvtThing.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:="C:\Documents and Settings\shahryarm\Desktop\[Combined 09S 20090407v8.xlsm]Combined Grantee Main Data!R3C4:R50000C252", _
        Version:=xlPivotTableVersion12)
    Next
    End If
  Next
End Sub

Open in new window

0
Comment
Question by:hermes829
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 16

Expert Comment

by:Jerry Paladino
ID: 24400487
Hermes829,
Have you tried this with a smaller dataset?  Your 50,000 rows and 252 columns is 12,600,000 cells of data.  Each Pivot Table by default holds a copy of the data so you could truly be running out of resources.  If you have 10+ pivot tables it may be too much without setting PT options to disable "Save source data with file".  If the dataset does not truly have 50,000 rows and you used that number to make sure you catch the bottom of the data then perhaps you can use a dynamic range name to define the data area.  
Some sample code is here - http://www.experts-exchange.com/Q_24173598.html but it is very similar to what you have so I don't expect it to resolve the problems you are having.  I would start with reducing the data to 500 rows and 15 columns just to work out any issues with the VBA and try to pinpoint the root cause of the problem.
HTH,
Jerry
0
 

Author Comment

by:hermes829
ID: 24424358
Thanks I'm afraid that the dataset is the size it is. We just have too many pivot tables referencing a dataset that's too big to continue using this type of format. Do you have any suggestions for database programs to switch to?
0
 
LVL 16

Accepted Solution

by:
Jerry Paladino earned 500 total points
ID: 24424585
Yes, I use MS-Access and its query engine to summarize large dataset.   With Excel Pivot Table you can use "External Data" and point them to an Access query as the datasource.   Do the majority of your summarization in Access and then report with your Excel Pivot Tables.    You can drastically reduce the size of the dataset that are stored with the pivot tables this way.
Another option is to use Excel's built in tool MS-Query to pull the Access query results into an excel sheet and then base your pivot table on that summarized sheet.  Several options.
HTH,
Jerry
0
 

Author Closing Comment

by:hermes829
ID: 31580604
Awesome thank you very much for this information.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question