Method 'SaveAs' failure

[w.goodwater]

I have an .xls with multiple worksheets. I have VB script attempting to save one of the worksheets to a new .xls file. When this is run, I get a "Run-time error '1004': Method 'SaveAs' of object '_Workbook' failed" error. My script outputs data to Sheet1. I can save Sheet1 to the new .xls file without problem. But if I add a new sheet, say, Sheet2, and try to save it to the new file, then I receive the above error. I receive this error if I save to a .csv or .txt file, as well.

The line that causes the error is as follows:

ActiveWorkbook.SaveAs FileName:=strFilename + ".xls", 
                      FileFormat:=xlExcel4, CreateBackup:=False

Any thoughts would be appreciated.

 

[xenou]

Are you repeating this code for a second sheet? Are you using the same filename? In that case, you will not be able to save a workbook with the name of another open workbook (and you will be overwriting if you could).