how to copy webpage into excel using qtp

[Saisu]

Hi Priya/Saini/Harp,

Here am facing the similar problem

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.

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

[Saisu]

Hello M/s Priya and Mr. Saini,

I am glad to inform that the script has run successfully. I made a few modifications to the script to add a new sheet each time the script runs.This will save me from the error when k+1 sheet is not present in the workbook. Adding a new worksheet makes my work easy as I can run a macro later to perform same action on all the data.

Code:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook= objExcel.Workbooks.Open("C:\Documents and Settings\Harp\Desktop\Data\ForumExcel.xls")
Set objSheet= objWorkbook.sheets.add

then rename the sheet to the co_id so that i know which sheet has which company's data and can be easily put into a SPSS file without any error.

This was a huge data collection task and I am thankful to you guys for helping me achieve my goal.

Thanks again.

---

Solved. This thread stands solved.