到底怎样使用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名，这样用法到底问题出在哪里呢？
总是报错，类型不匹配。 初学，还没尝试调用Excel，看了不少，都没用？ 个人喜欢帮助手册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) 本人也将尝试调用Excel的方法，谢谢大家的分享，受用了 4楼正解。
页:
[1]
