I have this script that will convert all excel to csv.
Set oExcel = CreateObject("Excel.Application") Set objFSO = CreateObject("Scripting.File