Convert .csv to .xls

[timbo1957]

Hi,

Is it possible to use a macro to covert 140 files in one folder from.csv to .xls format, and then delete the .csv files?

Thanks

[Domski]

Sure, something like this:

Sub test()

Dim strDir As String, strFileName As String

strDir = "C:\TEST\"
strFileName = Dir(strDir & "*.csv")

Do While strFileName <> ""
    Workbooks.Open strDir & strFileName
    ActiveWorkbook.SaveAs strDir & Left(strFileName, Len(strFileName) - 4) & ".xls", xlNormal
    ActiveWorkbook.Close False
    Kill strDir & strFileName
    strFileName = Dir
Loop

End Sub

Dom

[timbo1957]

Thanks Domski,

Brilliant!