qtp 读取excel单元格内容

标签：des   class   ext   c   get   a   

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:\Users\Chengshu\Desktop\CD\混合模型测试框架\文档\001-登录系统.xls"
msgbox  GetExcleSheetRowsCount(ReadExcelPath,"测试用例")
For i=3 to GetExcleSheetRowsCount(ReadExcelPath,"测试用例")
msgbox  GetExcelCells(ReadExcelPath,"测试用例",i,3)
msgbox  GetExcelCells(ReadExcelPath,"测试用例",i,2)
next

qtp 读取excel单元格内容,布布扣,bubuko.com

qtp 读取excel单元格内容

标签：des   class   ext   c   get   a   

原文地址：http://www.cnblogs.com/hgfg331/p/3719354.html