[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 怎样用VBS或BAT导出EXCEL表中的一部分数据为TXT

怎样用vbs或bat导出EXCEL表中的一部分数据为TXT,求救各位大侠,小弟先谢过了。。。

例如,EXCEL表中有如下数据:

姓名        产品        数量
刘起涯        小灵通        45
周月        小灵通        34
向文章        电话        45
周月        小灵通        95
区同雨        电话        55
顾思明        电话        17
李东        小灵通        12

我想用批处理导出表中的第3列的数量部分到一个文本文件(.TXT)中,应该怎么作呀?谢谢!
这个问题已经愁了好多天了,一直也没找到答案
期盼高人的出现,等待中。。。

[ 本帖最后由 loger 于 2009-4-27 14:48 编辑 ]

xiexiexie!!!!

TOP

如果能把该文件另存为csv文件,再用记事本打开...

TOP

楼主还可以参照此贴:
http://www.bathome.net/thread-4028-1-1.html
***共同提高***

TOP

  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 编辑 ]
***共同提高***

TOP

回复 3楼 的帖子

请把详细需求更新到顶楼
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

你需要导出EXCEL表中的哪一部分数据?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表