【已解决】怎么把CSV内里的内容转成xls
本帖最后由 lzlcn 于 2013-5-11 21:48 编辑怎么把一个格式为csv格式的文件内容，每一行分别分开存放到excel表中
并把内容分开存放，怎么做到呢
工序,"组件编码","描述","单位","单位用量","产出率","产出率单位用量","需求数量","已发料数量","未发数","位置号","备注",
10,"13GMC40P5-104336","MC40P5104BM BB5A 遥控器 IC 16SOPN","EA","1","1","1","401","0","401","U1","",
10,"14GIRE05X-T2X","红外发射二极管 940nm","EA","1","1","1","401","0","401","D1","",
10,"19AAB0000-JTF","贴片电阻 0Ω 1/16W +/-5% 0603","EA","1","0.998","1.002","401.803607","0","401.803607","R1","",
10,"25ABCB470-M1X","电解电容16V/47uF ±20% 85℃","EA","1","1","1","401","0","401","CE1","",
10,"28AAB0104-ZFX","贴片电容0.1UF 50V-20/+80% 0603","EA","1","0.998","1.002","401.803607","0","401.803607","C3","",
10,"40CRC3800-RMC1G","遥控器板1.6MM","EA","1","1","1","401","0","401","","",
10,"45GCOS3M6-4NOAG","陶瓷谐振器3.64MHz±0.5%","EA","1","1","1","401","0","401","Y1","",
10,"49ERC36A0-00XB3","导电胶","EA","1","1","1","401","0","401","","",
10,"55ERC36T1-OHAB3","上盖","EA","1","1","1","401","0","401","","",
10,"55ERC39B1-0HA","底壳","EA","1","1","1","401","0","401","","",
10,"55ERC39D1-0HA","电池门","EA","1","1","1","401","0","401","","",
10,"67SD380A0-0E2","电池弹簧（正）","EA","1","1","1","401","0","401","TP1/+","",
10,"67SD390A1-0E2","电池弹簧(负极)","EA","1","1","1","401","0","401","TP2/-","",
10,"71ESONYRC-RC0B1","贴纸","EA","1","1","1","401","0","401","","",
10,"74H008018-40D","遥控器胶袋","EA","1","1","1","401","0","401","","",
10,"89NSAC300-XT0","Solder Bar SAC0300","G","0.2","1","0.2","80.2","0","80.2","","",
10,"89NSAC307-XI0","Solder Wire SAC0307-M1","G","0.124","1","0.124","49.724","0","49.724","","",
对应开存放在EXCEL表中的每行每列中
工序 组件编码 描述 单位 单位用量 产出率 产出率单位用量 需求数量 已发料数量 未发数 位置号
10 13GMC40P5-104336 MC40P5104BM BB5A 遥控器 IC 16SOPN EA 1 1 1 401 0 401 U1
10 14GIRE05X-T2X 红外发射二极管 940nm EA 1 1 1 401 0 401 D1
10 19AAB0000-JTF 贴片电阻 0Ω 1/16W +/-5% 0603 EA 1 0.998 1.002 401.803607 0 401.803607 R1
10 25ABCB470-M1X 电解电容16V/47uF ±20% 85℃ EA 1 1 1 401 0 401 CE1
10 28AAB0104-ZFX 贴片电容0.1UF 50V-20/+80% 0603 EA 1 0.998 1.002 401.803607 0 401.803607 C3
10 40CRC3800-RMC1G 遥控器板1.6MM EA 1 1 1 401 0 401
10 45GCOS3M6-4NOAG 陶瓷谐振器3.64MHz±0.5% EA 1 1 1 401 0 401 Y1
10 49ERC36A0-00XB3 导电胶 EA 1 1 1 401 0 401
10 55ERC36T1-OHAB3 上盖 EA 1 1 1 401 0 401
10 55ERC39B1-0HA 底壳 EA 1 1 1 401 0 401
10 55ERC39D1-0HA 电池门 EA 1 1 1 401 0 401
10 67SD380A0-0E2 电池弹簧（正） EA 1 1 1 401 0 401 TP1/+
10 67SD390A1-0E2 电池弹簧(负极) EA 1 1 1 401 0 401 TP2/-
10 71ESONYRC-RC0B1 贴纸 EA 1 1 1 401 0 401
10 74H008018-40D 遥控器胶袋 EA 1 1 1 401 0 401
10 89NSAC300-XT0 Solder Bar SAC0300 G 0.2 1 0.2 80.2 0 80.2
10 89NSAC307-XI0 Solder Wire SAC0307-M1 G 0.124 1 0.124 49.724 0 49.724
附件如下
直接用excel打开然后另存为工作簿就可以了$path="D:\Documents\CSV文件\"
$file="SN1322014.csv"
$excel=ObjCreate("excel.application")
With $excel
.visible=True
.workbooks.opentext($path&$file,Default,Default,Default,Default,Default,Default,Default,True)
.activeworkbook.saveas($path&StringLeft($file,StringLen($file)-4),56)
.activeworkbook.close(False)
.quit
EndWith这样试下 不用这么麻烦,只要用tab把逗号换掉
就可以直接复制到execl,自动分行分列
也可以在execl中倒入数据,用,隔开,即可. 因为经常要这么操作，所以我才想出用auto脚本每次点一下就直接转成了，能批量转最好了 2楼的代码随便改改就能批量处理了 回复 2# kevinch
是的，感谢kevinch的指导，非常好！谢谢！
页:
[1]