在命令行上将XLS转换为CSV

在命令行上将XLS转换为CSV

如何在windows命令行中将XLS文件转换为CSV文件。

这台机器安装了MicrosoftOffice 2000。如果不可能使用MicrosoftOffice,我愿意安装OpenOffice。


肥皂起泡泡
浏览 1429回答 3
3回答

噜噜哒

打开记事本,创建一个名为XlsToCsv.vbs的文件并将其粘贴到:if&nbsp;WScript.Arguments.Count&nbsp;<&nbsp;2&nbsp;Then &nbsp;&nbsp;&nbsp;&nbsp;WScript.Echo&nbsp;"Error!&nbsp;Please&nbsp;specify&nbsp;the&nbsp;source&nbsp;path&nbsp;and&nbsp;the&nbsp;destination.&nbsp;Usage:&nbsp;XlsToCsv&nbsp;SourcePath.xls&nbsp;Destination.csv" &nbsp;&nbsp;&nbsp;&nbsp;Wscript.QuitEnd&nbsp;IfDim&nbsp;oExcelSet&nbsp;oExcel&nbsp;=&nbsp;CreateObject("Excel.Application")Dim&nbsp;oBookSet&nbsp;oBook&nbsp;=&nbsp;oExcel.Workbooks.Open(Wscript.Arguments.Item(0))oBook.SaveAs&nbsp;WScript.Arguments.Item(1),&nbsp;6oBook.Close&nbsp;FalseoExcel.Quit WScript.Echo&nbsp;"Done"然后从命令行转到保存了.vbs文件的文件夹,然后运行:XlsToCsv.vbs&nbsp;[sourcexlsFile].xls&nbsp;[destinationcsvfile].csv不过,这需要在您所在的计算机上安装Excel。

Smart猫小萌

稍微修改了ScottF答案的版本,它不需要绝对文件路径:if&nbsp;WScript.Arguments.Count&nbsp;<&nbsp;2&nbsp;Then &nbsp;&nbsp;&nbsp;&nbsp;WScript.Echo&nbsp;"Please&nbsp;specify&nbsp;the&nbsp;source&nbsp;and&nbsp;the&nbsp;destination&nbsp;files.&nbsp;Usage:&nbsp;ExcelToCsv&nbsp;<xls/xlsx&nbsp;source&nbsp;file>&nbsp;<csv&nbsp;destination&nbsp;file>" &nbsp;&nbsp;&nbsp;&nbsp;Wscript.Quit End&nbsp;If csv_format&nbsp;=&nbsp;6 Set&nbsp;objFSO&nbsp;=&nbsp;CreateObject("Scripting.FileSystemObject") src_file&nbsp;=&nbsp;objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0)) dest_file&nbsp;=&nbsp;objFSO.GetAbsolutePathName(WScript.Arguments.Item(1)) Dim&nbsp;oExcel Set&nbsp;oExcel&nbsp;=&nbsp;CreateObject("Excel.Application") Dim&nbsp;oBook Set&nbsp;oBook&nbsp;=&nbsp;oExcel.Workbooks.Open(src_file) oBook.SaveAs&nbsp;dest_file,&nbsp;csv_format oBook.Close&nbsp;False oExcel.Quit我已经重新命名了脚本ExcelToCsv,因为这个脚本根本不限于XLS。正如我们所预期的,xlsx工作得很好。在Office 2010上进行了测试。

慕桂英3389331

ScottF的groovyVB脚本上的一个小扩展:这个批处理文件将遍历目录中的.xlsx文件,并将它们转储到*.csv文件中:FOR&nbsp;/f&nbsp;"delims="&nbsp;%%i&nbsp;IN&nbsp;('DIR&nbsp;*.xlsx&nbsp;/b')&nbsp;DO&nbsp;ExcelToCSV.vbs&nbsp;"%%i"&nbsp;"%%i.csv"注意:您可以将扩展名.xlsx更改为.xls,并将脚本名称ExcelToCSV更改为XlsToCsv。
打开App,查看更多内容
随时随地看视频慕课网APP