1. 功能:在excel中对iploginType这两列进行遍历读取。本程序依赖于excel文件的"sheet2"表单中具有这两列。
  2.  
  3. dim dictTarget, objExcel
  4. '从交换机台账中提取ip/loginType数据
  5. getDictTarget
  6. objExcel.Quit
  7.  
  8. 'Msgbox dictTarget.Count
  9. '遍历所有ip,进行登录
  10. keySet = dictTarget.keys
  11. for i = 0 to dictTarget.Count -1
  12. ip = keySet(i)
  13. loginType = dictTarget.Item(ip)
  14. Msgbox ip&" : "&loginType
  15. next
  16.  
  17. function getDictTarget
  18. '功能:打开excel并将"ip","登录方式"这两列值提取为dictionary
  19. Set dictTarget = CreateObject("Scripting.Dictionary")
  20. Set objExcel = CreateObject("Excel.Application")
  21. Set objWorkbook = objExcel.Workbooks.Open("D:\桌面\Desktop\1.xlsx")
  22. objExcel.WorkSheets("Sheet2").Activate
  23. intColOfIP = getColNumInRowByValue(1, "IP")
  24. 'Msgbox "intColOfIP : "&intColOfIP
  25. intColOfLoginType = getColNumInRowByValue(1, "登录方式")
  26. 'Msgbox "intColOfLoginType : "&intColOfLoginType
  27.  
  28. intRow = 2
  29. Do Until objExcel.Cells(intRow, intColOfIP).Value = ""
  30. ip = objExcel.Cells(intRow, 1).Value
  31. loginType = objExcel.Cells(intRow, 2).Value
  32. dictTarget.add ip, loginType
  33. intRow = intRow + 1
  34. Loop
  35. end function
  36.  
  37. function getColNumInRowByValue(intRow, strValue)
  38. '获取指定行中指定内容的单元格的列值
  39. intCol = 1
  40. intResult = -1
  41. value = "tmp"
  42. Do while value <> ""
  43. value = objExcel.Cells(intRow, intCol).Value
  44. if value = strValue then
  45. intResult = intCol
  46. exit do
  47. end if
  48. intCol = intCol + 1
  49. Loop
  50. getColNumInRowByValue = intResult
  51. 'Msgbox "intResult : "&intResult
  52. end function

问题:在win7中测试一切正常。然而在xp中测试发现,运行结束后任务管理器中会残留一个EXCEL.EXE无法退出,即使已经调用了“objExcel.Quit”语句。

vbs读取excel的一个实例的更多相关文章

  1. php读取excel文件的实例代码

    php读取excel文件的实例代码. 代码: <?php /** * php读取excel文件 * by www.jbxue.com */ $this->loadexcel();//半酣p ...

  2. php读取excel日期类型数据的例子

    提供一个读取的函数:  代码如下 复制代码 //excel日期转换函数function excelTime($date, $time = false) { if(function_exists('Gr ...

  3. c#操作excel方式三:使用Microsoft.Office.Interop.Excel.dll读取Excel文件

    1.引用Microsoft.Office.Interop.Excel.dll 2.引用命名空间.使用别名 using System.Reflection; using Excel = Microsof ...

  4. SQLBulkCopy使用实例--读取Excel写入数据库/将 Excel 文件转成 DataTable

    MS SQL Server 提供一个称为 bcp 的流行的命令提示符实用工具,用于将数据从一个表移动到另一个表(表可以在不同服务器上). SqlBulkCopy 类允许编写提供类似功能的托管代码解决方 ...

  5. 利用jxl读取excel合并的单元格的一个小样例

    工作中我们可能要把Excel文件的记录保存到数据库, 今天我用jxl读取Excel文件时遇到了合并格的问题,记录例如以下: 如Excel文件例如以下: watermark/2/text/aHR0cDo ...

  6. C# 读取excel用户列表过滤一个月内未收到外部邮件已离职的员工

    1.通过aspose.cells读取excel中的数据并添加到list中 //存储从excel中读取出来的数据 List<UserInfo> lst_userinfo = new List ...

  7. clientdataset 读取excel 如果excel 文件不存在的时候 相应的gird 会不显示数据, 鼠标掠过 gird 格子 才会显示数据。 这是一个bug 哈哈

    clientdataset 读取excel   如果excel 文件不存在的时候   相应的gird 会不显示数据, 鼠标掠过 gird 格子 才会显示数据.   这是一个bug 哈哈

  8. C# 读取EXCEL文件的三种经典方法

    1.方法一:采用OleDB读取EXCEL文件: 把EXCEL文件当做一个数据源来进行数据的读取操作,实例如下: public DataSet ExcelToDS(string Path) { stri ...

  9. C# 读取Excel内容

    一.方法 1.OleD方法实现该功能. 2.本次随笔内容只包含读取Excel内容,并另存为. 二.代码 (1)找到文档代码 OpenFileDialog openFile = new OpenFile ...

随机推荐

  1. HTML5 — Wed SQL 本地数据库示例

    1 <!DOCTYPE html>2 <html lang="en">3 <head>4 <meta charset="UTF- ...

  2. WAS应用--虚拟主机

    --WAS应用--虚拟主机 ---------------------2013/11/08 在部署was应用的时候,步骤3<为web模块映射虚拟主机>. 例如有应用orsscheduleE ...

  3. 关于视频编辑SDK的接入说明

    一.运行环境 Android 4.1(api 16)以上: 处理器:双核 1GHz以上CPU(目前只支持ARM CPU, X86.MIPS暂不支持):推荐四核1.2GHz以上CPU 内存:1 GB以上 ...

  4. Go的变量作用域

    Go 语言变量作用域 作用域为已声明标识符所表示的常量.类型.变量.函数或包在源代码中的作用范围. Go 语言中变量可以在三个地方声明: 函数内部定义的变量称为局部变量 函数外部定义的变量称为全局变量 ...

  5. APP软件半成品测试技巧

    由于现在产品类型的多样性,产品功能的先进性,更多体现在产品质量的稳定性和可靠性.软件应用的领域不断深入,设计的复杂程度逐步扩大,开发的周期不断缩短,质量的要求就逐渐提高.然而根据我们公司的版本迭代速度 ...

  6. Session的引入以及Cookie的不足

    一.为什么引入session > Cookie实际上就是一个头. > 服务器会创建Cookie,并且将Cookie以一个响应头的形式发送给浏览器        > 浏览器收到Cook ...

  7. 【Linux】新建用户 用户组

      案例 hadoop #添加用户组 sudo useradd -s /bin/bash -g hadoop -d /home/hadoop -m hadoop #添加用户 sudo passwd h ...

  8. 【Spring 核心】AOP 面向切面编程

    一.什么是面向切面编程? 二.通过切点来选择连接点 三.使用注解创建切面 四.在XML中声明切面 五.注入AspectJ切面

  9. .NET入行之工作后

    成长这条路上,有一些事已经渐渐的消失模糊的脑海里,而有一些事,则历历在目,终生铭记. 一切都是从大二下学期快结束的那段培训课程开始的,从此也算是入门了,这也是一条不归路. 在.NET入行之工作前一文中 ...

  10. IDE UltraEdit 图文激活+安装教程

    IDE UltraEdit 安装+激活图文.. ---------------- ---------------- ---------------- ---------------- -------- ...