How to get the data from website to excel

How to get the data from website to excel - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: How to get the data from website to excel (/Thread-How-to-get-the-data-from-website-to-excel)

How to get the data from website to excel - Saisu - 11-24-2011

Hi All,

I need to get the data in excel from one site and required data is in the below patteren and the below is my view source page of the website.
==== View Source======

Code:
wsluser02<BR> Number 0233462238 <BR>Directory Entry Type NQR<BR>strict ID WR<BR>Exchange group code AAX2<BR>SS installation LC 7221 0001 <BR>Number Ported 0208976103<BR>Job Number: WNM<BR>

==============================================
What i need is get the data of
Number Directory Entry type strict ID Exchange group code

0233462238 NQR AAX2 .....

Please help me out

Thanks,
Saisu

RE: How to get the data from website to excel - vIns - 11-24-2011

Try this...

Code:
strSourceCode = Browser(..).Page(...).Object.documentElement.innerHTML

'this strSourceCode will have the entire source code of the page

RE: How to get the data from website to excel - Saisu - 11-24-2011

And one more ...

CO_ID=Array(zx061289,ZM061311,MA061436)
For k=0 To 2
Set oIE=CreateObject("InternetExplorer.Application")
oIE.Visible=True
oIE.Navigate "http://webbridge.com:50350/ASD/controller?function=directAccess&action=display&=840000000&caseId="&CO_ID(k)&""
Next
My Array value is not populating on url .... Output am getting page not found because while navigating webbridge.com:50350/ASD/controller?function=directAccess&action=display&=840000000&caseId= .... Id is not populating from array.

Please help me out from above two ...

Thanks,
Saisu

RE: How to get the data from website to excel - ravi.gajul - 11-25-2011

Hi Saisu,

You may try the following for extracting the data as required by you.For now i can only think of the following way.Assuming that the number size is fixed and code size is fixed,etc.

Code:
strText=Browser("Browser").Page("Page").Object.body.innerText

 msgbox strText

 'number position

posNum=instr(strText,"Number")+7

msgbox posNum

strNumber=mid(strText,posNum,10)

msgbox strNumber

DataTable.Value("Number")=strNumber

'Directory entry type position

posDET=instr(strText,"Directory Entry Type")+21

strDET=mid(strText,posDET,3)

DataTable.Value("DET")=strDET

msgbox strDET

Hope this helps you.

Regards,
Ravi