Find the 'String' from excel sheet and save to another
sheet.But we don't know the string column number and row number?
Answers were Sorted based on User's Feedback
This is working code. Don't forget to save workbook else nothing will get saved. Code is:
Set obj=createobject("excel.application")
Set obj2=obj.Workbooks.Open("C:UserspushkarDesktopBook1.xls")
Set obj3=obj2.Worksheets("Sheet1")
Set obj4=obj2.Worksheets("Sheet2")
rw=obj3.usedrange.rows.count
clm=obj3.usedrange.columns.count
For i=1 to rw
For j=1 to clm
a=obj3.cells(i,j).value
If strcomp(a,"nature")=0 Then
obj4.cells(1,2)=a
End If
Next
Next
obj2.Save
obj.Quit
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / kishan
set xlo=createObject("Excel.Application")
xlo.visible=True
set wbo=xlo.Workbooks.open("D:\QTP\TestData\abcdef.xls")
set wso=wbo.worksheets("Sheet1")
rcnt=wso.usedRange.rowcount
ccnt=wso.usedRange.columncount
for i=1 to rcnt
for j=1 to ccnt
str=wso.cells(i,j)
position=instr(1,str,"expected_string")
if position > 1
print "Required String is in
cell"&wso.cells(i,j)
xlo.worksheets("sheet2").cells
(1,1)="expected_string"
end if
next
next
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / bharathchandra maddhi
Option explicit
Dim exo, wbo, wso1, wso2, nor, noc, i, j, x, y
'Open a Excel file
Set exo=CreateObject("excel.application")
exo.Visible=true
Set wbo=exo.Workbooks.Open("C:\Bharath.xls")
Set wso1=wbo.Worksheets("sheet1")
Set wso2=wbo.Worksheets("sheet2")
nor=wso1.usedrange.rows.count
noc=wso1.usedrange.columns.count
'Varifying excel sheet strings
For i=1 to nor step 1
For j=1 to noc step 1
x=wso1.cells(i,j)
x=cstr(x)
If strcomp(x,"Bharath")=0 Then
wso2.cells(1,1)=x
End If
Next
Next
'Close excel s/w and Destroy the objects
exo.Quit
Set wso1=Nothing
Set wso2=Nothing
Set wbo=Nothing
Set exo=Nothing
| Is This Answer Correct ? | 1 Yes | 2 No |
Answer / 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
| Is This Answer Correct ? | 0 Yes | 1 No |
What is the diffrence bettween QTP 9.0 and QTP 9.1?
iam have done mba(finance)in 2008. in 2008 one reputed consultancy came off campus interview our institution. i got job as "manual test engineer". now iam working as "manual testing engineer". now my problem is when iam going interview the interviewer asking like " ur mba gradute how can u get job in test engineer." this question i have faced every interview. iam explaining how iam getting job. but they are not trust me". pls tell me answer how i am giving relavent ans.. this is my mail id y.ramana84@gmail.com
I m trying to automate one vb desktop application in that there is vblist vbcombobox many other vb tools are there ,when i m trying to find some unique property to identify the object (take example of vbcombobox ) I cannot find any unique property, all the combobox belong to same nativeclass same name no ids are available ,only the distinct property is there x and y coordinates so i m using some code like this "vbbutton "nativeclass:=ThunderRT6CommandButton","x:=304","y :=443").exist(2)" but i dont find them reliable .Can anyone suggest me some other way to identify those objects with some unique property or is there any way to register our own property .I m using descriptive programming to write the code .Thanks in advance
I want to know how to execute the descriptive programming in qtp for the webedit object which does not contain attached text property. but i have checked it with name and html id property. Even though it is not executing. it is giving error in object's physical description.
Explain advantages and disadvantages kdf?
How to add a page checkpoint to your test?
I want to open a Notepad window without recording a test and I do not want to use SystemUtil.Run command as well How do I do this?
i m tryed to use qtp in a user registration form but at the "image enter"part it gives a error when i run the qtp bcz the image is changed every time so it gives a error when i use regukar expreesion fot this it still gives a error value bcoz it reads the image code bt nt reconige the image which i enter in the image verification text box.so hw can i automate qtp for this function.plz give me a answer
WHAT IS THE FUNCTION (HOW TO DO) THE BATCH TESTING IN TEST DIRECTOR USING MANUAL TESTING PROCEDURE?
what is difference normal,analog,low level recording in qtp? what is lowlevel recording?
Subj: realtime example of Database check point, Can any one please detail on how the Database check point is utilized/implemented in a real time project. I already know how to make one by creating DSN/ODBC and writing the required query manually and other steps...I wanted the actual concept of implementation...couple of live examples will be highly appreciated. Thank you in advance
What is the Diff between Image check-point and Bit map Check point?