How to save .xlsx file format to .csv by using macro

Hi Everybody,

I want to save my xlsx file into .csv file format. I tried the following code. it works fine but when i open my .csv file, a message prompt me " The file format and extension of new .csv file does not match".File could be corrupted"

Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft csv file (*.csv), *.csv")
If file_name <> False Then
ChDir "C:\Users\akarim\Desktop\Data_loading_temp"
ActiveWorkbook.SaveAs Filename:=file_name
MsgBox "File Saved!"
End If

Can any one help me
Thanks
Asif

Thank you very much Jonathann for your help. but I want to save it in different location, the location i mentioned in my query. Secondly, I want to use input box, where user can input file name, as i used used in my question. Could you help me on it. thanks

Sure, that's an easy fix.

Please Login or Register  to view this content.

Dont forget to change the sheet name

Just noticed that you wanted it saved in a specific location.

My bad.

Let me work that out real quick.

Here you go!

I added a cancel feature. You can take that out if you want.

Please Login or Register  to view this content.

Thanks it does work