How to get the data from website to excel

[Saisu]

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

[vIns]

Try this...

Code:

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

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

[Saisu]

Hi,

From the source code i need to get the data in to excel like in the below

Number | name | code| id
01567891| Saisu|BBP5|37838

Thanks,
Saisu.

[Saisu]

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

[ravi.gajul]

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