到底怎样使用QTP操作Excel表格？网上说的没一个能用的！

Diana_zhaozhao

我只不过想把一个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

初学，还没尝试调用Excel，看了不少，都没用？

wower1985

个人喜欢帮助手册QuickTest Professional Code Samples Plus ，里面有绝对能运行通过的例子，还有各种高级实用技巧

杯中水

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

本人也将尝试调用Excel的方法，谢谢大家的分享，受用了

ymn911

4楼正解。