QTP对Excel的操作（一）之 Vbs对Excel的操作 中讲解了将值写入到Excel中，而该讲，我们讲解如何读取Excel的值。
'*************************************************************'
'函数/过程名称：ReadExcel()
'函数/过程的目的：操作Excel(读写)
'假设：无
'影响：
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/13
'修改者：
'修改原因：
'修改时间:
'*************************************************************'
Function ReadExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前台显示
ObjExcel.Visible = False
'设置变量SrcExcel等于Excel工作薄open
'Activate定位活动的sheet
'将某一单元格的值赋予变量 ExcValue
Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
SrcExcel.WorkSheets(sheetname).Activate
ExcValue = SrcExcel.WorkSheets(sheetname).Cells(x,y).Value
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗？” 使用DisplayAlerts代码该列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'将变量的值赋予函数本身，供调用函数时使用
DoExcel = ExcValue
'Excel退出，释放资源
ObjExcel.quit
Set ObjExcel = Nothing
Set SrcExcel = Nothing
End Function
同QTP对Excel的操作（一）之 Vbs对Excel的操作一样，ReadExcel()也有两种方法，一种是用sheet还操作，一种使用Excel来操作，第二种方法不再列出，请大家参照（一）自己尝试写出。
本文转自hblxp32151CTO博客，原文链接：http://blog.51cto.com/starpoint/585061，如需转载请自行联系原作者
