QTP读取excel的内容

上一篇 / 下一篇  2009-09-05 23:17:49

查看( 169 ) / 评论( 0 ) / 评分( 0 / 0 )
  1. ******************************************
  2. ' ** 函数名：GetCell
  3. ' ** 输 入：filePath,sheetName,rowNum, colNum
  4. ' ** filePath --- 文件路径
  5. ' ** sheetName --- 表名
  6. ' ** rowNum --- 行号
  7. ' ** colNum --- 列号或列名
  8. ' ** 功能描述： 此函数实现取得Excel表中某一单元格值的功能
  9. '** 调用方法：GetCell("c:\db.xls","Sheet1",1,1)
  10.                    或getcell("c:\db.xls","Sheet1",1,"A")
  11. '****************************************************
  13. Function GetCell(filePath,sheetName,rowNum,colNum)
  15. Set excObj = createobject("Excel.Application")
  16. Set excFile = excObj.workbooks.open(filePath)
  17. Set excSheet = excFile.worksheets(sheetName)
  19. getCell = excSheet.cells(rowNum,colNum) '取单元格的值
  21. End Function

收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar