Untitled

var fso = new ActiveXObject("Scripting.FileSystemObject")

var file = fso.GetFile(WScript.Arguments.Item(0))
var dirname = file.ParentFolder.Path
var basename = file.Name
var name = basename.replace(/\.xlsx?$/i, "")

var Excel = {
  xlCSV : 6
}

var excel = new ActiveXObject("Excel.Application")
try {
//  excel.Visible = true
  excel.DisplayAlerts = false

  update_links = null
  readonly = true
  book = excel.Workbooks.Open(file.Path, update_links, readonly)
  sheets = book.Sheets

  for (var i = 1; i <= sheets.Count; i++) {
    sheet = sheets.Item(i)
    sheet.Select()
    book.SaveAs(dirname + "\\" + name + "-" + i + ".csv", Excel.xlCSV)
  }
} finally {
  excel.Quit()
}