Board logo

标题: [问题求助] 怎样用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

  1. '获取excel表sheet(1)6-10行的第三列数据到文本
  2. dim path,strexcel,counter
  3. path="E:\批处理\"
  4. set objfos=createobject("scripting.filesystemobject")
  5. set objtxt=objfos.opentextfile(path&"new.txt",2,true)
  6. set objexcel=createobject("excel.application")
  7. set objworks=objexcel.workbooks.open(path&"test.xls")
  8. set objsheets=objworks.sheets(1)
  9. for counter=6 to 10
  10.      strexcel=strexcel&vbcrlf&objsheets.cells(counter,3).value
  11. next
  12. objtxt.write strexcel
  13. objtxt.close
  14. objexcel.quit
  15. set objtxt=nothing
  16. set objfso=nothing
  17. set objsheets=nothing
  18. set objworks=nothing
  19. 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