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

Popular posts from this blog

ios - How do I use CFArrayRef in Swift? -

eclipse plugin - Run java code error: Workspace is closed -

c - Error on building source code in VC 6 -