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.
Hi Saket,
Thnks for the information...............
Regards,
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
Paste your modified code here
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
Hi Saket,
I have pasted the code........
Please assist me.
Thanks in advance............
Regards,
Anu
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
Hi Saket,
Now it works properly.
Regards,
Anu