VBS: conversión de lotes de Excel a CSV

'FOR / f "delims =" %% i IN (' DIR * .xlsx / b ') DO excel2csv.vbs "%% i" "%% i.csv" 

si WScript.Arguments.Count <2 Entonces 
    WScript.Echo "Especifique el archivo src y el archivo dst. Uso: excel2csv <xls / xlsx> <csv>" 
    Wscript.Quit 
End If 

Set objFSO = CreateObject ("Scripting.FileSystemObject") 
src_file = objFSO.GetAbsolutePathName (WscriptItem (Argumentos. 0)) 
dest_file = objFSO.GetAbsolutePathName (WScript.Arguments.Item (1)) 

Dim oExcel 
Set oExcel = CreateObject ("Excel.Application") 

Dim oBook 
Set oBook = oExcel.Workbooks.Open (src_file) 

csv_format = 6 
oExcel.disle.ya = false 
oBook.SaveAs dest_file,csv_format 
oExcel.displayalerts = true

oBook.Close False 
oExcel.Quit