How to export excel sheet to CSV

G

geniusideas

Hi guys,

I just to export excel sheets to CSV with one click button then user
will prompt to save to any folder they like, key in file name and
done. Please help with VBA code. Thanks
 
M

merjet

The following works in Excel 2003 and is a macro, but it should help.

Sub SaveSheetToFile()
str1 = ThisWorkbook.Name
Workbooks(str1).ActiveSheet.Cells.Select
Selection.Copy
str2 = InputBox("Enter folder name. e.g. c:\MyFiles\")
str3 = InputBox("Enter file name. e.g. Book1")
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=str2 & str3 & ".csv", FileFormat:=
_
xlCSVMSDOS, CreateBackup:=False
ActiveWorkbook.Close True
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top