vbs获取excel表中的单元格内容

batman

要测试请下载附件，代码及注释如下：

1. 
   
2. '获取excel表单元格内容，made by batman
   
3. dim hang,lie,counter,counter1,choice '声明变量
   
4. on error resume next '忽略错误
   
5. '设置对象
   
6. set wshshell=createobject ("wscript.shell") '
   
7. path=wshshell.currentdirectory
   
8. set objexcel=createobject ("excel.application")
   
9. set objworks=objexcel.workbooks.open (path&"\test.xls")
   
10. objexcel.worksheets(1).activate
    
11. objexcel.visible=true '设置工作表可见，可去掉此句
    
12. '获取工作表有效总行列数
    
13. counter=0
    
14. do
    
15.      counter=counter+1
    
16. loop until objexcel.cells(1,counter).value=""
    
17. lie=counter-1:counter=0
    
18. do
    
19.      counter=counter+1
    
20. loop until objexcel.cells(counter,1).value=""
    
21. hang=counter-1
    
22. '查询由输入指定的单元格内容
    
23. do
    
24.      counter=inputbox("请输入要查询的行，格式如1，"&vbcrlf&vbcrlf&"输入值应小于"& hang+1&"：")
    
25.      if counter<>false then
    
26.         counter1=inputbox("请输入要查询的列，格式如1，"&vbcrlf&vbcrlf&"输入值应小于"& lie+1&"：")
    
27.         if counter1<>false then wsh.echo "查询结果："&vbcrlf&vbcrlf&objexcel.cells(int(counter),int(counter1)).value
    
28.      end if
    
29. choice=msgbox ("请问是否继续查询",vbyesno)
    
30. loop until choice=vbno
    
31. objworks.close
    
32. objexcel.quit
    
33. '清空对象，释放内存
    
34. set objworks=nothing
    
35. set objexcel=nothing
    
36. set wshshell=nothing
    

复制代码

zqz0012005

以前用过。
http://bbs.verybat.org/viewthrea ... romuid=37#pid168380