51Testing软件测试论坛

标题: 到底怎样使用QTP操作Excel表格？网上说的没一个能用的！ [打印本页]

作者: Diana_zhaozhao 时间: 2011-11-3 18:48
标题: 到底怎样使用QTP操作Excel表格？网上说的没一个能用的！
我只不过想把一个Sheet表中的一个单元格的值取出来，从网上找到这样一个函数，而且注释好像还是错的：
********************************************************************' 函数说明：获取工作表excelSheet单元格的值
' 参数说明：
'       (1)excelSheet:工作表名称;
'       (2)row:列的序号;
'       (3)column:行的序号;
' 返回结果：
'       (1)单元格存在,返回单元格值;
'       (2)单元格不存在，返回0;
' 调用方法:
'          set CellValue = GetCellValue(excelSheet, 1, 2)
' ********************************************************************Function GetCellValue(excelSheet, row, column)
value = 0
Err = 0
On Error Resume Next
tempValue = excelSheet.Cells(row, column)
If Err = 0 Then
      value = tempValue
      Err = 0
End If
On Error GoTo 0
GetCellValue = value
End Function

********************************************************************
Val = GetCellValuel(result,1,5)
“result”是Sheet名，这样用法到底问题出在哪里呢？
总是报错，类型不匹配。

作者: SexyCat_1113 时间: 2011-11-3 20:07
初学，还没尝试调用Excel，看了不少，都没用？

作者: wower1985 时间: 2011-11-3 22:23
个人喜欢帮助手册QuickTest Professional Code Samples Plus ，里面有绝对能运行通过的例子，还有各种高级实用技巧

作者: 杯中水 时间: 2011-11-16 10:03
Dim ExcelBook,ExcelSheet,myExcelBook,myExcelSheet
filePath = "D:\JCSJ.xlsx"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open(filePath)
Set myExcelSheet = myExcelBook.WorkSheets("sheet名")
中间脚本
ExcelBook.Quit
Set ExcelBook = Nothing
读取excel的sheet中的某个值用通过for循环myExcelSheet.Cells(i,j)

作者: chenliquan 时间: 2011-11-28 14:25
本人也将尝试调用Excel的方法，谢谢大家的分享，受用了

作者: ymn911 时间: 2011-11-28 14:30
4楼正解。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)