buyiyang 当前离线
少尉
TOP
set csvfile="R:\old.csv" set xlsxfile="R:\new.xlsx" mshta vbscript:execute("With CreateObject(""Excel.Application"").Workbooks.Open("%csvfile%"):.SaveAs "%xlsxfile%",51:.Parent.Quit:End With")(close)复制代码