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 are "Ordinal Identifiers" and where it is used in QTP. AS FAR AS i KNOW, its is used to identify the object. but i want clarity regarding this.
If 3 browsers are opened in our system, how to enter the facebook url into second browser by using descriptive programing
Explain building blocks of the bpt framework ?
Object Repositories types, which & when to use?
How many test scripts are prapare in ur project(HeathCare Insurance).
What are the key points to create a framework in QTP for oracle forms?
HOW TO COUNT NUMBER OF ITEMS PRESENT IN WEB LIST
I am new with QTP. Is anybody could tell me where I can find a good tutorial with lots of samples?
A web page title might be xxxx@xyz.com or xxxy@xxx.co or xyz@abc.in.Using what mandatory properties can be the page identified.Give the regular expression for that.
difference between waitProperty & Checkproperty
What are the differences between quicktest professional (qtp) and winrunner?
How is recording done when a application is over lapping the QTP application it gives a message object not recorded