View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JW[_2_] JW[_2_] is offline
external usenet poster
 
Posts: 638
Default Option to overwrite with VBA initiated open/Save Common Dialog

The way I read your post is that you do want to see the overwrite
message, correct? If so, simply remove the DisplayAlerts lines from
Chip's code.
Sub AAA()
Dim FName As Variant
FName = Application.GetSaveAsFilename( _
filefilter:="Excel Files (*.xls), *.xls")
If FName = False Then
' user cancelled
Exit Sub
End If
On Error Resume Next
ThisWorkbook.SaveAs Filename:=FName
End Sub

BAC wrote:
XP, MSO 2003
I have an Excel routine that executes a call to the comon dialog open/save
file as per http://www.mvps.org/access/api/index.html Call Windows File
Open/Save Dialog box.

The only issue i have is, when saving, there is no option to overwrite.
(i.e. "The file filename.xls already exists, do you want to overwrite it?"
type-thing)

Is it possible to do that within the call to the dialog box, or does that
have to be coded as a separate search for the file and, if it's found use a
message box to ask, then call the dialog box.

I was told using DisplayAlert before the call would work but it doesn't.

TIA

BAC