Convert XLS to CSV : Code not working

[talss21]

strFile = replace(strOrigFile,".csv",".xls")

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open strOrigFile

objExcel.DisplayAlerts = False
objExcel.ActiveWorkbook.SaveAs strFile, -4143

objExcel.DisplayAlerts = False
objExcel.ActiveWorkbook.Close
objExcel.DisplayAlerts = False
objExcel.Application.Quit

This code is not working when converting csv to xls, Please help !

 

[TysonLPrice]

Have a look here:

http://www.vbforums.com/showthread.php?t=365488

 

[talss21]

The link shows to comvert excel to CSV. But I need a script to convert .CSV to >XLS