VBS：ExcelからCSVへのバッチ変換

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

if WScript.Arguments.Count <2 Then 
    WScript.Echo "srcとdstファイルを指定してください。使用法：excel2csv <xls / xlsx> <csv>" 
    Wscript.Quit 
End If 

Set objFSO = CreateObject（ "Scripting.FileSystemObject"）
src_file = objFSO.GetAbsolutePathName（Wscript.Arguments.Item（ 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.displayalerts = false 
oBook.SaveAs dest_file、csv_format 
oExcel.displayalerts = true

oBook.Close False 
oExcel.Quit