联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
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