怎样用VBS或BAT导出EXCEL表中的一部分数据为TXT

loger

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

例如，EXCEL表中有如下数据：

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

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

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

Batcher

你需要导出EXCEL表中的哪一部分数据？

Batcher

请把详细需求更新到顶楼

batman

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

楼主还可以参照此贴：
http://www.bathome.net/thread-4028-1-1.html

shfxnqby

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

hnldwhm52

xiexiexie!!!!