G Guest Aug 19, 2007 #1 I am looking for an automatic procedure to open a file (excel 2003), refresh all pivot tables (olap cubes) and save it. thanks
I am looking for an automatic procedure to open a file (excel 2003), refresh all pivot tables (olap cubes) and save it. thanks
G Guest Aug 19, 2007 #2 Hi Sub OpenUpdatePivotTablesSave() Dim pt As PivotTable Dim ws As Worksheet Dim wb As Workbook Set wb = Workbooks.Open("C:\Myfile.xls") For Each ws In wb.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws wb.Save End Sub
Hi Sub OpenUpdatePivotTablesSave() Dim pt As PivotTable Dim ws As Worksheet Dim wb As Workbook Set wb = Workbooks.Open("C:\Myfile.xls") For Each ws In wb.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws wb.Save End Sub
G Guest Aug 19, 2007 #3 Thanks Wigi. it works Wigi said: Hi Sub OpenUpdatePivotTablesSave() Dim pt As PivotTable Dim ws As Worksheet Dim wb As Workbook Set wb = Workbooks.Open("C:\Myfile.xls") For Each ws In wb.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws wb.Save End Sub Click to expand...
Thanks Wigi. it works Wigi said: Hi Sub OpenUpdatePivotTablesSave() Dim pt As PivotTable Dim ws As Worksheet Dim wb As Workbook Set wb = Workbooks.Open("C:\Myfile.xls") For Each ws In wb.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws wb.Save End Sub Click to expand...
