краткая запись и решение

If wscript.arguments.count < 2 then wscript.echo "error! please specify the source path and the destination. usage: xlstocsv sourcepath.xls destination.csv" wscript.quitend ifdim oexcelset oexcel = createobject("excel.application")dim obookset obook =
oexcel.workbooks.open(wscript.arguments.item(0))obook.saveas wscript.arguments.item(1), 6obook.close falseoexcel.quitwscript.echo "done"xlstocsv.vbs [sourcexlsfile].xls [destinationcsvfile].csvif wscript.arguments.count < 2 then wscript.echo "please specify the source and the destination files.
usage: exceltocsv " wscript.quitend ifcsv_format = 6set objfso = createobject("scripting.filesystemobject")src_file = objfso.getabsolutepathname(wscript.arguments.item(0))dest_file = objfso.getabsolutepathname(wscript.arguments.item(1))dim oexcelset oexcel = createobject("excel.application")dim
obookset obook = oexcel.workbooks.open(src_file)obook.saveas dest_file, csv_formatobook.close falseoexcel.quitfor /f "delims=" %%i in ('dir *.xlsx /b') do exceltocsv.vbs "%%i" "%%i.csv"if wscript.arguments.count < 3 then wscript.echo "please specify the sheet, the source, the destination files.
usage: exceltocsv " wscript.quitend ifcsv_format = 6set objfso = createobject("scripting.filesystemobject")src_file = objfso.getabsolutepathname(wscript.arguments.item(1))dest_file = objfso.getabsolutepathname(wscript.arguments.item(2))dim oexcelset oexcel = createobject("excel.application")dim
obookset obook = oexcel.workbooks.open(src_file)obook.sheets(wscript.arguments.item(obook.saveas dest_file, csv_formatobook.close falseoexcel.quit