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

  • 相关阅读:
    2019春第三次课程设计实验报告
    2019春第二次课程设计实验报告
    2019春第一次课程设计实验报告
    第十二周总结
    第十一周总结
    第五周课程总结&试验报告(三)
    第四周课程总结&实验报告(二)
    第三周课程总结&实验报告一
    第二周学习总结
    19春总结
  • 原文地址:https://www.cnblogs.com/hgfg331/p/3719354.html
Copyright © 2011-2022 走看看