Open, Enable Automatic Refresh and save excel file using vbs

[wattsy29]

Hi all
I am trying to open an excel file enable automatic refresh then save the file and close using a vbs.
The problem i am having is i need to enable automatic refresh when the file opens.
I could use a sendkey command but i was wondering if there is another way.

This is what i have so far

Set xl = CreateObject("Excel.application")

xl.Application.Workbooks.Open "c:\Data\Graphing.xls"

'sets it so you can see the file
xl.Application.Visible = True

'xl.application.displayalerts = false

xl.ActiveWorkbook.Save
xl.Application.Quit

CurrentDate = Now

Wscript.Echo "Bitlab Data Update Correctly " & FormatDateTime(CurrentDate, vbShortDate)


set xl = Nothing

Thanks rhyan