Save as Overwrite prompt

[Steph]

Sub Save_Book()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=filepath & "VA05.xls"
Application.DisplayAlerts = True
End Sub

I want to save a file and automatically overwrite the existing file. I have
done this a thousand times, and it works fine. But now I am exporting a
report from an ERP system into Excel. When I run this code against the
resulting excel file, I get an error Method 'Display Alerts' of object
'Application' failed. Is there another way of Saving a file without being
prompted to overwrite or not? (I want the default to be Yes overwrite).
Thanks!

[theDude]

Steph,

Try this:

Please Login or Register  to view this content.

Hope this helps!
theDude

[Dave Peterson]

Maybe you could just delete the file (or at least try to):

on error resume next
kill filepath & "VA05.xls"
on error goto 0

activeworkbook.saveas filename:=filepath & "VA05.xls"

===
But I think I'd try to find out why that .displayalerts is breaking. I don't
recall ever seeing it break.

Steph wrote:
>
> Sub Save_Book()
> Application.DisplayAlerts = False
> ActiveWorkbook.SaveAs Filename:=filepath & "VA05.xls"
> Application.DisplayAlerts = True
> End Sub
>
> I want to save a file and automatically overwrite the existing file. I have
> done this a thousand times, and it works fine. But now I am exporting a
> report from an ERP system into Excel. When I run this code against the
> resulting excel file, I get an error Method 'Display Alerts' of object
> 'Application' failed. Is there another way of Saving a file without being
> prompted to overwrite or not? (I want the default to be Yes overwrite).
> Thanks!

--

Dave Peterson