Saving as 2 file types with active workbook name

[YeshyTiger]

Hello,

I'm trying to save multiple workbooks as both .xls and .csv I recieve .xls files, make consistent changes, then save the updated workbook in both formats in seperate folder. How can I do this in VBA? I want to keep the same name as what I opened the file as

My current isn't cutting it. Also, there are times when I get 2 workbooks of the same name and I just want to overwrite what's already in the folder.

Here's my current, it's a section out of my much larger macro.

 Application.DisplayAlerts = False
ChDir "C:\Documents and Settings\jgeiger\Desktop\PMP Converted Files"
 ActiveSheet.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlNormal
ChDir "C:\Documents and Settings\jgeiger\Desktop\CSV Ready for Import"
ActiveSheet.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlCSV

 

[Gerald Higgins]

To overwrite an existing file, use KILL, e.g.

Kill "C:\Documents and Settings................filename"

Insert this immediately before your save command.

 

[YeshyTiger]

But the file name(s) change with each file. Could I put a Kill activeworksheet.name in there?

ie

Kill "C:\Documents and Settings................activeworksheet.name"

It is not actually killing the open worksheet, just killing a file of same name in different folder

 

[Blade Hunter]

Isn't that going to overwrite the first file with the second? Just using chdir will not set that as the place to save a file as far as I am aware.

Try this, I did it in notepad so you may need to play around with it a little:

Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\jgeiger\Desktop\PMP Converted Files\" & ActiveWorkbook.Name, FileFormat:=xlNormal
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\jgeiger\Desktop\CSV Ready for Import\" & left(ActiveWorkbook.Name,len(ActiveWorkbook.Name)-4) & ".csv", FileFormat:=xlCSV