View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
sqwawk sqwawk is offline
external usenet poster
 
Posts: 1
Default Overwriting text files


Orlando Acevedo wrote:
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