Board logo

标题: [原创] vbs获取excel表中的单元格内容 [打印本页]

作者: batman    时间: 2009-4-4 23:45     标题: vbs获取excel表中的单元格内容

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

作者: zqz0012005    时间: 2009-4-5 07:41

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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2