[原创] vbs获取excel表中的单元格内容

'获取excel表单元格内容，made by batman
dim hang,lie,counter,counter1,choice '声明变量
on error resume next '忽略错误
'设置对象
set wshshell=createobject ("wscript.shell") '
path=wshshell.currentdirectory
set objexcel=createobject ("excel.application")
set objworks=objexcel.workbooks.open (path&"\test.xls")
objexcel.worksheets(1).activate
objexcel.visible=true '设置工作表可见，可去掉此句
'获取工作表有效总行列数
counter=0
do 
     counter=counter+1
loop until objexcel.cells(1,counter).value=""
lie=counter-1:counter=0
do 
     counter=counter+1
loop until objexcel.cells(counter,1).value="" 
hang=counter-1
'查询由输入指定的单元格内容
do 
     counter=inputbox("请输入要查询的行，格式如1，"&vbcrlf&vbcrlf&"输入值应小于"& hang+1&"：")
     if counter<>false then
        counter1=inputbox("请输入要查询的列，格式如1，"&vbcrlf&vbcrlf&"输入值应小于"& lie+1&"：")
        if counter1<>false then wsh.echo "查询结果："&vbcrlf&vbcrlf&objexcel.cells(int(counter),int(counter1)).value
     end if
choice=msgbox ("请问是否继续查询",vbyesno)
loop until choice=vbno
objworks.close
objexcel.quit
'清空对象，释放内存
set objworks=nothing
set objexcel=nothing
set wshshell=nothing
复制代码