cvs2xls

原来cvs 转excel 居然这么简单.
因为经常要用EXCEL看CVS文件,但excel非常恶心的是会锁文件.非常不方便,可以改设置,但是每个文件要单独改.所以我就想用spread32要看. 但是spread32又不支持cvs文件,反正我导入的只出现第一个cell一个乱码符号.于是在网上拼命的找cvs转xls 的软件,最后终于找到一个,可是是要钱的.而且转出来的效果很坏,把我的逗号直接弄飞了,转出来的,每行只有一个cell,全被它合在一起了...叫什么来的...Convert XLS, softinterface出品, 卖多少钱就不知道了. 不过它的好处就是,不需要EXCEL支持. 可是,谁它妈要转excel还会没装excel呀,那转出来怎么用.


终于给我找到解决方案,居然这么短:

dim oEx
set oEx=Createobject("Excel.Application")
oEx.Workbooks.Open "绝对路径,要转换的文件"
oEx.ActiveWorkbook.SaveAs "c:\..path\out.xls", -4143, , , False, False
oEx.Quit


用记本事抄一下,存成cvs2xls.vbs 双击运行就行了. 也可以用命令行运行,
 cscript cvs2xls.vbs 

 如此容易的东西,居然还有软件想卖钱.




http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_23471634.html

--
Feng