[问题] VBA存读CSV格式的问题

楼主: winnina1 (Jtin 介)   2015-03-07 17:08:06
(若是和其他不同软件互动之问题 请记得一并填写)
软件:EXCEL
版本:2007
存取CSV的方法如下:
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" &
"data_001" & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
一开始发现的问题是 日期格式会跳掉
我需要的是yyyy/mm/dd的格式 或者是 mm/dd/yyyy的格式 去灌入其他程式使用
但一开始存盘之后 只要再开启档案 就会变成 yyyy/m/d的格式
因此我试着把他用文字表示yyyy/mm/dd的型态,去灌入其他程式做使用
结果读取出现bug
但是我只需要手动把csv档案开启后 存盘
就可以正常读取
但因为资料量太多 实在无法一一做存盘动作
想问问板上大大 在储存CSV档的时候,VBA码该做怎样的设定才能够让原有格式保留
作者: soyoso (我是耀宗)   2015-03-07 23:05:00
测试一下存成csv会是以原有格式保留,只是如果在以excel开启时才又跳回yyyy/m/dcsv可以记事本开启,就会看到以原有格式保留http://youtu.be/-Tz28WoAyU8 这是测试的影片
楼主: winnina1 (Jtin 介)   2015-03-10 20:54:00
恩 soyoso大讲的是对的 存盘时他确实还是存成对的格式只是我还是无法灌到其他程式里...除非我再手动存盘一次用VBA写了批量开启存盘的功能 也无法改善
作者: soyoso (我是耀宗)   2015-03-10 22:28:00
http://goo.gl/RsV9hp 那如果用for output as #1的方式输出,试试 http://goo.gl/RsV9hp
楼主: winnina1 (Jtin 介)   2015-03-11 19:11:00
找到问题了,其实是因为这样子的格式会多出空格但不知道怎样把空格消去资料格式会长这样 02/02/2009,1345,5555 ,6666 ,
作者: soyoso (我是耀宗)   2015-03-11 20:38:00
那是否可以提供档案看看呢?
楼主: winnina1 (Jtin 介)   2015-03-11 20:54:00
作者: soyoso (我是耀宗)   2015-03-11 21:34:00
是否有在excel档就有资料的档案呢?想从档案转出时看一下是否是原始资料的问题
楼主: winnina1 (Jtin 介)   2015-03-11 22:03:00
作者: soyoso (我是耀宗)   2015-03-11 22:25:00
那把Selection.NumberFormatLocal = "0_ "改为Selection.NumberFormatLocal = "0" 试试测试转出后就没有后面空格了
楼主: winnina1 (Jtin 介)   2015-03-11 22:46:00
成功了!!!!!!!感谢soyoso大!!!!!!!!!
作者: soyoso (我是耀宗)   2015-03-11 22:49:00
^^

Links booklink

Contact Us: admin [ a t ] ucptt.com