Search WebTable?

[Brian T.]

Thanks,

For all the help!

I was able to use the below code to search a web table for a specific Name(Andrew APRS Fox) and a specific Access Type(Internet)for the current date and once found click on the link in the 7th column for that specific request. Here is the code in case someone else has a simular issue.

Again Thanks for all the Help!

Code:

Dim objTable, intRow
Today = MonthName(Month(Now),True)&" "&Day(Now)&" "&Year(Now)

Set objTable = Browser("").Page("").WebTable("")
Rcount = 1
do until Rcount = objTable.RowCount +1
If objTable.GetCellData(Rcount, 1) = "Andrew APRS Fox" Then
If objTable.GetCellData(Rcount, 3) = "Internet" Then
If Mid(objTable.GetCellData(Rcount, 5),11,1) = " "
Then
covdate = Left(Today,10)
Else
covdate = Left(Today, 11)
End If
If covdate = Today Then
If objTable.GetCellData(Rcount, 6) = "PENDING APPROVAL " Then
Exit do
End If
End If
End If
End If
Rcount = Rcount + 1
loop
If Rcount = objTable.RowCount +1Then
msgbox "No Matching Records Found"
End If
Set View = Browser("").Page("").WebTable("").ChildItem(Rcount, 7, "Link", 0)

View.Click

Thanks,
Brian