24小时热门版块排行榜    

查看: 407  |  回复: 5
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

chenzilong

新虫 (初入文坛)

[交流] 【求助】如何批量地将假excel文件转变为真excel文件?【已完结】

描述:将假excel文件转变为真excel文件,现通过excel的宏实现。但是,每处理一个文件(一个股票一天的交易数据),需按一次宏的快捷键,费力,能否一次性处理多个文件(如500个)?另外,如果能一次性处理多个股票的多个文件(如50个股票,每个股票200个文件),则更好。注:MATLAB仅可读真excel文件

假excel文件以“另存为”方式转变为真excel文件:
先用dos对目标文件夹中的文件名称建立fname.txt,然后用excel打开,在其中编辑以下宏文件,操作即可。注:文件以同名另存为新目录a下。

Sub Macro1()
   Dim ff As String
   ff = "E:\datachen\600009\" & ActiveCell.Text
   fff = "E:\datachen\600009\200708-10\" & ActiveCell.Text
   Workbooks.Open Filename:=ff
   ActiveWorkbook.SaveAs Filename:=fff, FileFormat:=xlNormal
   ActiveWorkbook.Close
   ActiveCell.Offset(1, 0).Select
End Sub

假excel文件样本见我的博客:http://chenxiaoyans.blog.sohu.com

[ Last edited by nono2009 on 2009-10-9 at 22:24 ]
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rosemary168

银虫 (初入文坛)

我试过了 可以也!
4楼2009-10-08 11:58:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

jjdg

版主 (知名作家)

优秀版主

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1,VIP+0):谢谢交流!欢迎常来。 10-8 07:39
你的文件呢?
看看是什么格式的先!
努力学习!以正当途径!获得需要的知识!
2楼2009-10-08 00:06:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yinguang

金虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖交流
看不懂,顶一下。
巧者劳而知者忧,无能者无所求。
3楼2009-10-08 09:13:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chenzilong

新虫 (初入文坛)

假excel文件的格式


nono2009(金币+1,VIP+0):谢谢分享经验。欢迎常来交流。 10-9 22:24
假excel文件的格式,我也不清楚。
不过,用excel打开后,按“另存为”,显示文件格式为:“600000.xls"
问题就在于有引号,“另存为”正常excel文件后,matlab 就可读了
先谢谢各位关注。
5楼2009-10-08 16:22:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见