Overwriting text files

[Orlando Acevedo]

I'm writing a macro that opens several workbooks, transforms them and then
saves them as a text files.
The problem is that I need the same files overwritten, and when I use the
line below, I get a message saying that a file with the same name already
exists and asks if I want to replace it, which means that I can't automate
the process because I have to click on 'yes' after each file is ready.
Is there a way to automate this?

ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) & ".txt",
FileFormat:=xlText

Thank you.

 

[sqwawk]

I'm writing a macro that opens several workbooks, transforms them and then
saves them as a text files.
The problem is that I need the same files overwritten, and when I use the
line below, I get a message saying that a file with the same name already
exists and asks if I want to replace it, which means that I can't automate
the process because I have to click on 'yes' after each file is ready.
Is there a way to automate this?

ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) & ".txt",
FileFormat:=xlText

Thank you.

Try turning off the system messages prior to saving the file (and
turning them on again after)

Application.DisplayAlerts=False

ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) &
".txt",
FileFormat:=xlText

Application.DisplayAlerts=True

HTH
Neil