Changing CSV Files To Excel Files?

[Dazzawm]

I have several files within a folder all saved as CSV. Is there anyway that I can change them all to Excel files in one go rather than opening them all up and saving as XLS individually?. Thanks.

 

[Richard Schollar]

No. You could automate this process through VBA though.

 

[Dazzawm]

No. You could automate this process through VBA though.

How Please?

 

[Richard Schollar]

What version of Excel are you using? Do you want to save as .xlsx, .xlsm, .xls or what type files?

 

[Dazzawm]

I am using Excel 2007. I need them saved as .xlsx please.

 

[Richard Schollar]

Try running this - you need to plonk it in a standard module via opening the VBE (Alt+F11) and inserting a module into your chosen workbook (Alt+I+M) and then paste the code in to the module. CLick anywhere in the code and hit F5 to run it. You will be prompted to pick the folder in which to search for the csv files.

Let me know if you need to select only a subset of the csv files within the folder - currently it will do all of them.

Sub Conv_Files()
Dim strFolder As String
Dim strFile As String
Dim wb As Workbook
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If .Show = -1 Then strFolder = .SelectedItems(1) Else Exit Sub
End With
strFile = Dir(strFolder & Application.PathSeparator & "*.csv")
If strFile <> "" Then
    Do
        Set wb = Workbooks.Open(strFile)
        wb.SaveAs Left$(wb.Name, InStrRev(wb.Name, ".") - 1), FileFormat:=51
        wb.Close
        strFile = Dir
    Loop Until strFile = ""
Else
    MsgBox "No files found!"
End If
End Sub

 

[Dazzawm]

Thanks, worked a treat.