Excel 2007 : Convert XLS to CSV

[ilco]

I will be merging data into a new CRM, the requirements for the CRM are to post everything from a CSV file, unfortunately most of the information is stored in a XLS format. How does one convert XLS to CSV?

[Jack in the UK]

something to try, you will need to edit the targets and source's

jiuk

Sub Jack_in_the_UK_XLS_to_CSV()
    Dim my_Microsoft_EXCEL_Document As String
    Dim my_CSV_Document As String


    Const strInputFolder As String = "C:jiuk_Source"
    Const strOutputFolder As String = "C:jiuk_DESTINATION"

    my_Microsoft_EXCEL_Document = Dir(strInputFolder & "*.xls")

    Do While my_Microsoft_EXCEL_Document <> ""
        my_CSV_Document = Left(my_Microsoft_EXCEL_Document, InStrRev(my_Microsoft_EXCEL_Document, ".")) & "csv"
        Workbooks.Open strInputFolder & my_Microsoft_EXCEL_Document
        ActiveWorkbook.SaveAs strOutputFolder & my_CSV_Document, xlCSV
        ActiveWorkbook.Close False
        my_Microsoft_EXCEL_Document = Dir
    Loop

End Sub

[martindwilson]

just save as csv office button/save as/ other file types choose csv