Overwrite existing excel file 1

[thesewerguy]

I'm trying to open excel file from one folder, edit excel file and save it to another folder under a different name. All works well but if a file with that name exists in the destination folder excel pops up with a "file already exists...do you want to overwrite it..bla bla". I thought that having safety set to off would correct the issue but it doesn't. Any ideas on how to prevent warning if the file already exists in the folder?

Thanks

 

[RickBorup]

If you're using automation to drive Excel from VFP then it's Excel saving the file, not VFP, which is why SET SAFETY has no bearing on the matter. What you probably want to do is write some VFP code to detect if the destination file already exists and if so then to delete it before telling Excel to save the new one of the same name. From a technical POV this is easy to do, but from a design POV it may be questionble whether it's a good idea to go about deleting files on a user's machine without giving them a say-so in the matter.

-Rick

 

[JRB-Bldr]

As Rick says above, if you are using Excel Automation you will need to use Excel commands....

Something like

tmpsheet = CREATEOBJECT('excel.Application')
oExcel = tmpsheet.APPLICATION

< Do Whatever... >

* --- Save Excel Results ---
oExcel.CutCopyMode = .F. && Clear the clipboard
oExcel.DisplayAlerts = .F.

* --- Save Results Again ---
xlSheet.SAVEAS(mcExclFName)  && Fully Pathed Excel File Name

* --- Close the Worksheet ---
oExcel.Workbooks.CLOSE

* --- Quit Excel ---
oExcel.QUIT

Good Luck,
JRB-Bldr

 

[thesewerguy]

Thanks everyone for the input. I realized the same thing Rick was pointing out after a short break, Excel is doing the saving and thus must be tackled within Excel. The DisplayAlerts is what I needed to suppress the warning, thx JRB-Bldr.