VB eexcel issue

[DrewConn]

I am running this module as a stand alone .exe to auto refresh an excel file. The problem is how do I avoid the save prompt from appearing to make it fully automatic?

Public Sub ExcelRefresh()
Set objExcel = New Excel.Application
objExcel.Visible = False
objExcel.DisplayAlerts = False
Set objworkbook = objExcel.Workbooks.Open("S:\Charge Off Forcasting\Gain-Loss Dump File\Weekly Gain Loss Report.xls")
objExcel.Cells(4, 1).Select
objExcel.Selection.QueryTable.Refresh BackgroundQuery:=False
objworkbook.Save
objworkbook.Close
objExcel.Quit

Set objworkbook = Nothing
Set objExcel = Nothing
End Sub


Any help is appreciated

 

[johnwm]

objworkbook.Close savechanges:=True

should do it

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[DrewConn]

Still get a save as prompt using this command.

 

[johnwm]

Seems to work OK for me on VB6, XP pro and Excel on Office XP. I have used the same routine to close Excel silently for several years with other versions

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[Droops]

I am not sure whether this property exists in your environment, but can you try :

objworkbook.Saved = True

just before

objworkbook.Close

Hoping this helps.

Droops