How to get the data from website to excel

[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