【已解决】怎么把CSV内里的内容转成xls

lzlcn · 发表于 2013-5-11 13:41:34

本帖最后由 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
附件如下

kevinch · 发表于 2013-5-11 17:40:06

直接用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

这样试下

minterz · 发表于 2013-5-11 20:34:50

不用这么麻烦,只要用tab把逗号换掉
就可以直接复制到execl,自动分行分列

也可以在execl中倒入数据,用,隔开,即可.

lzlcn · 发表于 2013-5-11 21:33:04

因为经常要这么操作，所以我才想出用auto脚本每次点一下就直接转成了，能批量转最好了

kevinch · 发表于 2013-5-11 21:40:48

2楼的代码随便改改就能批量处理了

lzlcn · 发表于 2013-5-11 21:44:40

回复 2# kevinch

是的，感谢kevinch的指导，非常好！谢谢！

		自动登录	找回密码
密码			加入

[AU3基础] 【已解决】怎么把CSV内里的内容转成xls

本帖子中包含更多资源

评分