Answer Posted / raju

Set xl = CreateObject("Excel.Application")
set xlwbook = xl.Workbooks.Open(Excel Path)

Set xlWS = xlwbook.Worksheets(1)

Set k = xl.Worksheets(1).UsedRange.Find(Value to
Search)
On error resume next
k=k.value
If err.number>0 Then
msgbox "Pass"
else
Flag=0
If flag=0 Then
Status = "Pass"
StepDesc = "The Work Book has the
values "
Else
Status = "Pass"
StepDesc = "The Work Book Does not
has the values "
End If
End If

Set xlWS = Nothing
set xlwbook = Nothing
Set xl = Nothing

Please let me know if it's not working
raju.ippali@gmail.com

How to import a test case present in ".xls" file to TD under a Test set?

1277

---

For which type of projects the iterative model is not suitable?

1933

---

Explain QTP using different development techniques ?

995

---

What is the significance of “action 0” in qtp?

1126

---

what is the difference btn risks & Therads in the Test plan documentation?

2171

---

can any boby tell me what is method or steps to connect the remote desk top by using QTP 9.2 version?

2112

---

How many scripts did you have?

2232

---

Is qtp supports uni-code?

1076

---

i am new QTP... please tell me automation frameworks , types & for whiich type of applications frameworks are used & how to generate script in keyword driven framework

2161

---

What is CMMP and CMMH?

1212

---

What is test object model in quicktest professional?

1129

---

How to find a window is minimized or not

1928

---

What is the use of running the scripts in Hidden-mode in UFT?

1266

---

What are the views available in quicktest professional (qtp)?

1113

---

What are the types of environment variables in qtp?

1077

---