[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 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
复制代码
1

评分人数

    • rat:PB + 30 技术 + 1
***共同提高***

命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

返回列表