Micro Focus QTP (UFT) Forums
how to copy webpage into excel using qtp - 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 copy webpage into excel using qtp (/Thread-how-to-copy-webpage-into-excel-using-qtp)

Pages: 1 2


RE: how to copy webpage into excel using qtp - Saisu - 11-23-2011

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


RE: how to copy webpage into excel using qtp - Saisu - 11-24-2011

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.