Regular Expression Syntax

[Saket]

I have used this to create the generic Link object with the properties specified.
Once we create that we can search for all the object in the page.
look into QTP help for more details.

[Anu]

Hi Saket,

Thnks for the information...............

Regards,
Anu

[Anu]

Hi Saket,

The code is working properly that is navigation to other web pages is happening but writting the data to excel is not proper.
The screen shot of excel is attached where the data is fetched after running the script.

Waiting for reply

Regards,
Anu

[Saket]

Paste your modified code here

[Anu]

Code:

Dim xlSheet,xlBook, xlApp,a,CustomerName,Address,datatable Const ForAppending = 8 const TristateTrue=-1 file_location = "F:\Test.xlsx" '----------'For Wirting in Excel Sheet' Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.WorkBooks.Open("F:\Test.xlsx") Set xlSheet = xlBook.WorkSheets("Sheet1") Set oLinks = Description.Create oLinks("micclass").Value = "Link" oLinks("html tag").Value = "A" Set AllLinks = Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").ChildObjects(oLinks) nLinks =AllLinks.count For i = 2 to nLinks CountOfRows=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").RowCount nRow = xlSheet.UsedRange.Rows.Count For j = 1 To CountOfRows 'a=Browser("Untitled Page").Page("Untitled Page_3").WebTable("Data_Table").GetCellData(i,1) CustomerName=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(i,3) Address=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(i,4) nRow = nRow + 1 xlSheet.Rows(nRow).Columns(1).Value =CustomerName xlSheet.Rows(nRow).Columns(2).Value =Address Next oLinks("text").Value = i Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("LinkTable").Link(oLinks).Click Next xlApp.DisplayAlerts = False xlBook.Save 'xlBook.Close xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing

[Anu]

Hi Saket,

I have pasted the code........

Please assist me.
Thanks in advance............

Regards,
Anu

[Saket]

you have changed the loop variable to 'j' for second For loop, but did not change it at other placed where you have used. all are still 'i'
changed the second loop as below -

Code:

For j = 1 To CountOfRows 'a=Browser("Untitled Page").Page("Untitled Page_3").WebTable("Data_Table").GetCellData(j,1) CustomerName=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(j,3) Address=Browser("Meghalaya Directory Search").Page("Meghalaya Directory Search_3").WebTable("DataTable").WebTable("Table").GetCellData(j,4) nRow = nRow + 1 xlSheet.Rows(nRow).Columns(1).Value =CustomerName xlSheet.Rows(nRow).Columns(2).Value =Address Next

put your codes using proper formatting tags to make it more readable

[Anu]

Hi Saket,

Now it works properly.

Regards,
Anu