Excel pivot refresh, save and close in Access VBA code

Posted by schneidm on Stack Overflow See other posts from Stack Overflow or by schneidm
Published on 2010-01-15T03:47:08Z Indexed on 2010/06/09 1:02 UTC
Read the original article Hit count: 230

Filed under:

ms-access

|

access-vba

I am using the following code to refresh Excel pivot tables from an Access application. What is the best way to save and close the Excel app after the pivots refresh? In my last attempt the code was trying to save and close before the pivots had refreshed.

Private Sub Command161_Click()   
  Dim objXL As Object, x

  On Error Resume Next
  Set objXL = CreateObject("Excel.Application")
  With objXL.Application
    .Visible = True
    'Open the Workbook
    .Workbooks.Open "myfilepath.xls"
    'Refresh Pivots
    x = .ActiveWorkbook.RefreshAll
  End With    
  Set objXL = Nothing
End Sub

© Stack Overflow or respective owner

Related posts about ms-access

SQLAuthority News – MS Access Database is the Way to Go – April 1st Humor

as seen on SQL Authority - Search for 'SQL Authority'
First of all, today is April 1- April Fool’s Day, so I have written this post for some light entertainment. My friend has just sent me an email about why a person should go for Access Database. For a short background, I used to be an MS Access user once (I will not call myself MS Access DBA), and… >>> More
LINKED TABLES BETWEEN MS ACCESS 2003 AND MS ACCESS 2007-WRITE PERMISSIONS DENIED

as seen on Super User - Search for 'Super User'
We are in the process of switching over to ACCESS 2007. We have numerous data tables in ACCESS 2003 files. In one case, the user has 2007 on his PC and opend the front end in 2007. No problems. When the the user is done, he clicks a button that executes a macro full of update queries. The macro… >>> More
Working with Compressed (zipped) folders in MS Access

as seen on Internet.com - Search for 'Internet.com'
Doug Steele presents a simple technique to add zip files from within your application. >>> More
Extending the InputBox function for MS Access Forms

as seen on Internet.com - Search for 'Internet.com'
While it's not possible to change the behavior of the InputBox function, this article illustrates how to create your own Access form that includes a text box with its InputMask property set to Password, and then use that form instead of the one generated by the VBA InputBox function. >>> More
Uses for Cartesian Products in MS Access

as seen on Internet.com - Search for 'Internet.com'
Less well known than inner and outer joins is the Cartesian product, which produces every possible combination of records between the two tables. Doug Steele offers four examples to demonstrate some legitimate uses for Cartesian products. >>> More

Related posts about access-vba

T-SQL Equivalents for Microsoft Access VBA Functions

as seen on Internet.com - Search for 'Internet.com'
If you need to migrate your Access application to SQL Server, don't count on The SQL Server Upsize Wizard in Microsoft Access to automatically convert your VBA functions. If you want to push the complex query processing done by your Access queries to the back end, you'll have to rewrite them in T-SQL. >>> More
Access VBA sub with form as parameter doesn't alter the form

as seen on Stack Overflow - Search for 'Stack Overflow'
I have a Microsoft Access 2003 file with various tables of data. Each table also has a duplicate of it, with the name '[original table name]_working'. Depending on the user's choices in the switchboard, the form the user choose to view must switch its recordsource table to the working table. I… >>> More
Achieve Rails-style migrations in MS Access VBA application

as seen on Stack Overflow - Search for 'Stack Overflow'
This is a simple way to do Rails-style migrations in a VBA application. Just add additional migrations like migration(name, sql_string, database) to run_migratons and call run_migrations somewhere in the beginning of your execution. Function migrate(signature As String, sql As String, dbs As DAO… >>> More
Using INSERT INTO and setting one field value - Access VBA

as seen on Stack Overflow - Search for 'Stack Overflow'
Hi, I'm using INSERT INTO to copy rows of data from one table to another: INSERT INTO tblNewCustomers (CustomerID, [Last Name], [First Name]) SELECT CustomerID, [Last Name], [First Name] FROM tblOldCustomers How can I set one of the field values in tblNewCustomers for all of the new records that… >>> More
MS-Access VBA: form_error vs on error

as seen on Stack Overflow - Search for 'Stack Overflow'
I am trying to set up error handling for a MS-Access application. The standard method to do this seems to be with an On Error statement in each subroutine/function. It seems simpler to me to use the Form_Error function to catch all the runtime errors in that form as opposed to an On Error statement… >>> More