- '获取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
复制代码
[ 本帖最后由 batman 于 2009-4-27 18:10 编辑 ] |