Solved: Convert csv file to xls format

[Ann_BBO]

Hi All,

If i have a more 100 csv files in folder. How to convert to xls format and save as new worksheet.

Thanks
Ann

[Aussiebear]

What stops you from opening each file and saving as xls?

[Aussiebear]

Try this; (please note it is untested)

Sub SaveCSV_to_XLS()
Dim str1 As Variant, str2 As String

Application.DisplayAlerts = False

str1 = Dir("Z:\1b\*.csv")
Do While str1 <> ""
Workbooks.Open Filename:="Z:\1B\" & str1 '<----Change your to your path
str2 = Left(str1, Len(str1) - 3)
ActiveWorkbook.SaveAs Filename:="Z:\1B\" & str2 & "xls", FileFormat:=xlExcel9795 ' <----Change to your version
ActiveWindow.Close
str1 = Dir
Loop
Application.DisplayAlerts = True
End Sub

[Ann_BBO]

Thanks. It works ^.^

Ann