Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Macro to use an refresh a worksheet using an excel addin

I'm using Hyperion Financial Manager (HFM) and would like to write a macro
that opens a file, updates header information, refreshs the data using HFM,
saves, and closes. I've been able to create a macro that will do everything
but refresh the data using HFM. What can be done to make this happen for me?

This is the attempt I made. Thanks

Sub Update_HFM_pulls_for_closing()
'
' Update_HFM_pulls_for_closing Macro
' Macro recorded 10/30/2008 by alexac01
'

'
ChDir "K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates"
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\04 -
Midwest.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\05 -
PA-NJ.xls", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\06 -
Ohio.xls", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\07 -
Las Vegas.xls" _
, UpdateLinks:=3
Range("B4").Select
Sheets("Managers").Select
ActiveWindow.SmallScroll Down:=-9
Sheets("Chris Summary").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\09 -
Mideast.xls" _
, UpdateLinks:=3
Sheets("Input").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\10 -
SWFL.xls", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\11 -
NFL.xls", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\12 -
North Carolina.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\13 -
Virginia.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\14 -
Central Florida.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\15 -
Cyber Reps.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\16 -
Field Marketing.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\17 -
Embarq Sales Occupancy.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\18 -
Embarq Sales Managers.xls" _
, UpdateLinks:=3
Sheets("Summary").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\19 -
Embarq Sales Persons.xls" _
, UpdateLinks:=3
Sheets("Summary").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\20 -
Embarq Sales Planning.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"K:\2008 Actual Analysis\Jeremy's Team\Embarq\Close Templates\21 -
Embarq Sales Training.xls" _
, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do i get an automatic refresh of a worksheet in excel Dan Excel Worksheet Functions 4 June 1st 08 02:19 PM
Create refresh button in worksheet to refresh Pivot Table Data Ron Excel Worksheet Functions 1 October 13th 07 01:20 AM
Automatic Refresh in Addin Rich[_27_] Excel Programming 0 March 19th 05 12:10 AM
Timing of automatic query refresh and macro pivot table refresh dutty Excel Programming 2 December 1st 04 07:19 PM
raw speed for excel worksheet functions? - xll -or com addin? John Doe[_3_] Excel Programming 1 August 18th 03 11:26 PM


All times are GMT +1. The time now is 04:47 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"