'获取excel表sheet(1)6-10行的第三列数据到文本
dim path,strexcel,counter
path="E:\批处理\"
set objfos=createobject("scripting.filesystemobject")
set objtxt=objfos.opentextfile(path&"new.txt",2,true)
set objexcel=createobject("excel.application")
set objworks=objexcel.workbooks.open(path&"test.xls")
set objsheets=objworks.sheets(1)
for counter=6 to 10
     strexcel=strexcel&vbcrlf&objsheets.cells(counter,3).value
next
objtxt.write strexcel
objtxt.close
objexcel.quit
set objtxt=nothing
set objfso=nothing
set objsheets=nothing
set objworks=nothing
set objexcel=nothing
复制代码