中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » ［请教］让BAT去读取Excel的某行或某列

Billunique
中级用户

菜鸟总动员

积分 259
发帖 112
注册 2006-8-28
状态离线

『楼主』: ［请教］让BAT去读取Excel的某行或某列

　　真诚地向大家请教，是否有办法让BAT脚本去读取Excel（.xls或.csv格式）的某列或某行的数据？比如现在要读取B列，输出到1.txt，请问该如何操作？太感谢了！

★①②③④⑤⑥⑦⑧⑨⑩㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ【●】→←↑↓▲

2007-9-18 16:13

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 2 楼』:

只能考虑让VBS来处理（俺还不会）

2007-9-18 16:29

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 3 楼』:

set ws=createobject("wscript.shell") 

path=ws.currentdirectory

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open(path & "\111.xls")

h=1

do until objExcel.Cells(h,2).Value="" '这里的2表示B列（遇到单元格为空值时就会退出...）

    s=s & objExcel.Cells(h,2).Value & vbcrlf

    h=h+1

loop

objExcel.Quit

msgbox s

此帖被 +4 点积分

点击查看详情

2007-9-18 17:55

Billunique
中级用户

菜鸟总动员

积分 259
发帖 112
注册 2006-8-28
状态离线

『第 4 楼』:

jmz573515兄：

　　非常感谢！用你的脚本，部分列可以完整读出（总共50行，全部读出）。但对于某些列，单元格内的内容较多，用脚本没有完全读完，只读到第12行的内容。因此想问下，对于Msgbox，弹出的内容在字数上是否有限制？

　　另外还有两个问题请教：）

　　1.如何将内容输出到一个文本？（不好意思我基本是VBS盲）
　　2.可以用Bat来实现同样的效果吗？

★①②③④⑤⑥⑦⑧⑨⑩㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ【●】→←↑↓▲

2007-9-18 19:28

dikex
高级用户

潜水修练批处理

积分 788
发帖 366
注册 2006-12-31
状态离线

『第 5 楼』:

csv的可以，for加上tokens= 以及delims=,等参数就可以读取了，具体的看for /?

正在潜水修练的批处理小白

2007-9-18 22:21

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 6 楼』:

弹出内容上如果想全部显示你可以用wscript.echo来显示。
如何将内容输出到一个文本，你可以参考VBS里的FileSystemObject对象。

2007-9-18 22:45

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 7 楼』:

jmz573515兄的代码果然高明
学习

2007-9-19 03:18

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: