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