Macro to save Excel file as .CSV 1

[maca9]

Hi

Is there a way I can have a macro save a file as CSV.

My problem is when I record a macro it then uses that filename i recorded the macro on as the name for ALL future files it converts.

I need the button to simply save the current file with the exact same name but just as .csv instead of .xls.

Thanks for any help

Scott

http://www.vegajewellery.co.nz

Diamond Specialists

 

[PHV]

A starting point:
With ActiveWorkbook
.SaveAs Filename:=Left(.FullName, Len(.FullName) - 3) & "csv", FileFormat:=xlCSV
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[maca9]

Thanks for that.

Is there anyway I could use this code to create a different button to save in excel 95 format?

Thanks again

http://www.vegajewellery.co.nz

Diamond Specialists