Crawl to final URL from within Excel VBA -
I have a list of domain names, and many of them have been redirected to the same domain. For example ... foo1.com, foo2.csm and foo3.com do all I collect at foo.com.
I am trying to duplicate the list of domains by writing a VBA script to load the final page and remove it from the URL.
I started with this article which retrieves the title of the page, but how to modify it to get the final URL (from which I am url.
Can someone point me in the right direction?
Add "Microsoft XML, v3.0" (or Reference to any version you have)
sub-tester () debug.print check redirect ("adhpn2.com") end subfinction check reday If not (like URL string), "http: // *" like URL, "url =" http: // "and urls with new MSXML 2. SRACXHHTP 40. Open" Head ", URL, Failure check = reset. Reset end with end function
Comments
Post a Comment