标题: [问题求助] 怎样用VBS或BAT导出EXCEL表中的一部分数据为TXT [打印本页]
作者: loger 时间: 2009-4-27 11:48 标题: 怎样用VBS或BAT导出EXCEL表中的一部分数据为TXT
怎样用vbs或bat导出EXCEL表中的一部分数据为TXT,求救各位大侠,小弟先谢过了。。。
例如,EXCEL表中有如下数据:
姓名 产品 数量
刘起涯 小灵通 45
周月 小灵通 34
向文章 电话 45
周月 小灵通 95
区同雨 电话 55
顾思明 电话 17
李东 小灵通 12
我想用批处理导出表中的第3列的数量部分到一个文本文件(.TXT)中,应该怎么作呀?谢谢!
这个问题已经愁了好多天了,一直也没找到答案
期盼高人的出现,等待中。。。
[ 本帖最后由 loger 于 2009-4-27 14:48 编辑 ]
作者: Batcher 时间: 2009-4-27 12:45
你需要导出EXCEL表中的哪一部分数据?
作者: Batcher 时间: 2009-4-27 14:28 标题: 回复 3楼 的帖子
请把详细需求更新到顶楼
作者: batman 时间: 2009-4-27 18:08
- '获取excel表sheet(1)6-10行的第三列数据到文本
- dim path,strexcel,counter
- path="E:\批处理\"
- set objfos=createobject("scripting.filesystemobject")
- set objtxt=objfos.opentextfile(path&"new.txt",2,true)
- set objexcel=createobject("excel.application")
- set objworks=objexcel.workbooks.open(path&"test.xls")
- set objsheets=objworks.sheets(1)
- for counter=6 to 10
- strexcel=strexcel&vbcrlf&objsheets.cells(counter,3).value
- next
- objtxt.write strexcel
- objtxt.close
- objexcel.quit
- set objtxt=nothing
- set objfso=nothing
- set objsheets=nothing
- set objworks=nothing
- set objexcel=nothing
复制代码
[ 本帖最后由 batman 于 2009-4-27 18:10 编辑 ]
作者: batman 时间: 2009-4-27 18:42
楼主还可以参照此贴:
http://www.bathome.net/thread-4028-1-1.html
作者: shfxnqby 时间: 2011-8-7 14:06
如果能把该文件另存为csv文件,再用记事本打开...
作者: hnldwhm52 时间: 2014-12-17 12:10
xiexiexie!!!!
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |