zoukankan      html  css  js  c++  java
  • qtp 读取excel单元格内容

    qtp 读取excel单元格内容


    Function GetExcelCells(ExcelPath,SheetName,SheetColumn,SheetRow)
     Set ExcelBook = CreateObject("Excel.Application")
     Set ExcelSheet = CreateObject("Excel.Sheet")
     Set myExcelBook = ExcelBook.WorkBooks.Open(ExcelPath)
     Set myExcelSheet = myExcelBook.WorkSheets(SheetName)
     SheetValue = myExcelSheet.cells(SheetColumn,SheetRow).value
     GetExcelCells = SheetValue
     ExcelBook.Quit
     set ExcelSheet = Nothing
     Set ExcelBook = Nothing
    End Function

    Function GetExcleSheetRowsCount(ExcelPath,SheetName)
     Set ExcelBook = CreateObject("Excel.Application")
     Set ExcelSheet = CreateObject("Excel.Sheet")
     Set myExcelBook = ExcelBook.WorkBooks.Open(ExcelPath)
     Set myExcelSheet = myExcelBook.WorkSheets(SheetName)
     GetExcleSheetRowsCount = myExcelSheet.UsedRange.Rows.Count
     ExcelBook.Quit
     set ExcelSheet = Nothing
     Set ExcelBook = Nothing 
    End Function

    ReadExcelPath="C:UsersChengshuDesktopCD混合模型测试框架文档01-登录系统.xls"
    msgbox  GetExcleSheetRowsCount(ReadExcelPath,"测试用例")
    For i=3 to GetExcleSheetRowsCount(ReadExcelPath,"测试用例")
    msgbox  GetExcelCells(ReadExcelPath,"测试用例",i,3)
    msgbox  GetExcelCells(ReadExcelPath,"测试用例",i,2)
    next

  • 相关阅读:
    爬取校园新闻首页的新闻的详情,使用正则表达式,函数抽离
    网络爬虫基础练习
    Hadoop综合大作业
    hive基本操作与应用
    用mapreduce 处理气象数据集
    熟悉常用的HBase操作
    爬虫大作业
    熟悉常用的HDFS操作
    数据结构化与保存
    获取全部校园新闻
  • 原文地址:https://www.cnblogs.com/hgfg331/p/3719354.html
Copyright © 2011-2022 走看看