excel - VBA parsing of href -
I have also searched for many posts, some of them are interesting for this,
I'll show you what I am. I selected and copied some rows (from 155 to 174)
& lt; Ul & gt; & Lt; Li & gt; & Lt; A href = "/ wiki / baac_ai" title = "bac" I "class =" mw-redirect "& gt; Bac I Bac II A href =" / wiki / BA C C.III "Title =" BAC. III "class =" MW-reader "> Bac III A href =" / wiki / BAAC ._IV "title =" BACC IV "Class =" MW-Reader "> Bac IV A href =" / wiki / BAAC .v = "title =" BACC V "class =" MW-Director "> Bac V A href =" / wiki / BAAC ._VI "title =" bac. Lt; li & gt; & lt; a href = "/ wiki / ba." C_ VII "title =" bac. Lt; li & gt; & lt; a href = "/ wiki / bac", A & B; a ; / Li> Bac VIII-belt-boat / Wiki / bac_x "title =" baciex "class =" mw-director "> bac ninth and lt; / a & gt; & lt; / li & gt; & lt ; Li & gt; & lt; a href = "/ wiki / bac.ckid" title = "bac. . DeRion "title =" BAAC Drone "class =" mw-directory "& gt; bac drone & lt; / a & gt; & lt; / li & gt; & lt; li & gt; & lt; a href =" / wiki / bac.source Daron "title =" bac. Super Drone "Class =" MW-Director "& gt; Bac Super Drone & lt; / li & gt; BA. Swallow 2 < B.A. Double eagle "title =" ba double eagle "class =" mw-redire "> gt; double eagle & lt; / a & gt; & lt; / li & gt; & lt; / ul & gt; I would like to find BAC for HTML tags, for example VII
and then using VBA actually in line item link href
Which contains bac stays seventh.
After navigating to me, I have to get the resulting URL in the string. Keep in mind that if possible I like compulsion I tried to write a loop, but no success was found ...
Dear Ron
The debugger stops on the first line and ... it Run-time error is 424 '
However we have the object qualifier ...
Thanks for watching my question
This loop works for me.
Sub-test () 'Navigate to IE, interest and loop's website until fully loaded. IE = CreateObject ("InternetExplorer.Application") my_url = "Http: //www.xyz.com "with IE .Visible = true. Navigate my_url. Top = 50 = 530 .it = 400 .Withth = 400 not IE.Busy and IE.readyState = 4 DoEvents Loop End 'Find the desired url and set the results = IE.document.getElementsByTagName ("a") Click on it in each result Ifm.outerhtml = "BAC VII" then do itm.Click until IE.Busy and IE.readyState = 4 DoEvents exit for the loop end if the next ending sub
Comments
Post a Comment