Disregard, I got it to work somehow.
I used a different block of code I found and modified it but, it'll take a bit I think to figure out why this one works while the other doesn't. Thank you for your help
Working Code:
I used a different block of code I found and modified it but, it'll take a bit I think to figure out why this one works while the other doesn't. Thank you for your help
Working Code:
Code:
Dim res
Dim res1
Dim res2
Dim i,j
res =Browser("Yahoo!").Page("Yahoo! Finance - Business").WebTable("PropertyName:=Most Actives","index:=6").RowCount
res1=Browser("Yahoo!").Page("Yahoo! Finance - Business").WebTable("PropertyName:=Most Actives","index:=6").ColumnCount(res)
For i=1 to res
For j=1 to res1
res2=Browser("Yahoo!").Page("Yahoo! Finance - Business").WebTable("PropertyName:=Most Actives","index:=6").GetCellData(i,j)
msgbox res2
next
next