到底怎样使用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名，这样用法到底问题出在哪里呢？
总是报错，类型不匹配。

lyscser

1、你现在用的是一组函数中的一个，他们肯定是有相互调用关系的，你拷出这几行没有意义；
2、on error resume next对于vbs初学者在调试过程中没有任何好处，去掉之后你或许能得到一点有用的信息；
3、给个傻瓜例子吧，你所谓网上“没一个能用的”不会是天涯水区或者偷菜的网站吧。

1. '***************************************************************************************************************************
   
2. '设计说明： 读指定行和列的EXCEL的值
   
3. '程序输入：        
   
4. '                1. sheetName -- 读取的SHEET；
   
5. '                2. rowNum -- 指定行；
   
6. '                3. colNum -- 指定的行；
   
7. '                4. appointedFile -- 文件全路径(含文件名称和后缀名)
   
8. '程序输出： 读取的指定单元格的值
   
9. '设计人员： XXXXX
   
10. '设计时间： 2008-11-05
    
11. '调用举例： Msgbox GetExcelCellValue("指定页",3,4,"D:\test.xls")
    
12. '***************************************************************************************************************************
    
13. 
    
14. Public Function GetExcelCellValue(sheetName, rowNum, colNum, appointedFile)  
    
15.         On Error Resume Next
    
16.         Set fObject = CreateObject("Scripting.FileSystemObject")
    
17.        
    
18.         If         Not fObject.FileExists(appointedFile) Then
    
19.                 Report micFail,"参数文件不存在：","指定文件：【" & appointedFile & "】未找到，请确认文件路径！"
    
20.                 Set fObject = Nothing
    
21.                 Exit Function
    
22.         End If
    
23.        
    
24.         Set ExcelApp = CreateObject("Excel.Application")
    
25.         ExcelApp.Visible = False
    
26.         ExcelApp.DisplayAlerts = False   '隐藏EXCEL的告警提示
    
27.         Set newBook = ExcelApp.Workbooks.Open(appointedFile,False,True)  '只读模式
    
28.         newBook.Worksheets(sheetName).Activate
    
29.         GetExcelCellValue = newBook.Worksheets(sheetName).Cells(rowNum, colNum).Value
    
30. 
    
31.         Set newBook = Nothing
    
32.         ExcelApp.Quit
    
33.         Set ExcelApp = Nothing
    
34.         Set fObject = Nothing
    
35. End Function

复制代码

Diana_zhaozhao

非常感谢楼上的，代码收藏了！
昨天我的也解决了，用了三步：
Set excobj = createobject("excle.application")
set excfilr = excobj.workbooks.open(filepath)
set excshet = excfile.workseets(sheetname)