rem vbs do not recognize upper or lower case rem xlCSV 6 rem xlCSVMac 22 rem xlCSVMSDOS 24 rem xlCSVWindows 23 rem MsgBox "转换开始" Const version = "1.0" Set app = CreateObject("Excel.Application") app.DisplayAlerts = False src = WScript.Arguments(0) dst = WScript.Arguments(1) WSH.Echo "Args count is " & CStr(WScript.Arguments.Count) & ":" WSH.Echo src WSH.Echo dst Set book = app.Workbooks.Open(src) Set sheet = book.Worksheets(1) sheet.SaveAs dst, 6 app.Quit