[文件操作] 请问如何利用批处理将.CSV文件转换成.XLS的文件呢？

@echo off
more +2 "%~0">$.vbs&cscript /NoLogo $.vbs&del $.vbs&goto :eof
strPath = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path
Set objExcel = CreateObject("Excel.Application")
Set objFile = objExcel.Workbooks.Open(strPath & "\a.csv")
objFile.SaveAs(strPath & "\a.xls"),1
objFile.Close
复制代码