[COLOR="Navy"]Sub[/COLOR] MG24Jul15
[COLOR="Navy"]Dim[/COLOR] objIE [COLOR="Navy"]As[/COLOR] Object
[COLOR="Navy"]Dim[/COLOR] i [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] i2 [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] blWSExists [COLOR="Navy"]As[/COLOR] Boolean
[COLOR="Navy"]Dim[/COLOR] sURL [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] sAllPosts [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] txt [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
'[COLOR="Green"][B]URL to open[/B][/COLOR]
sURL = "[URL]http://www.selleckchem.com/[/URL]"
[COLOR="Navy"]On[/COLOR] [COLOR="Navy"]Error[/COLOR] GoTo error_handler
'[COLOR="Green"][B]Open an Internet Explorer instance[/B][/COLOR]
[COLOR="Navy"]Set[/COLOR] objIE = CreateObject("InternetExplorer.Application")
[COLOR="Navy"]With[/COLOR] objIE
'[COLOR="Green"][B]Open the webpage in the newly created instance.[/B][/COLOR]
'[COLOR="Green"][B]Note that Internet Explorer and thus the webpage as well are not visible![/B][/COLOR]
.Navigate sURL
'[COLOR="Green"][B]Wait until the webpage is loaded[/B][/COLOR]
[COLOR="Navy"]Do[/COLOR] [COLOR="Navy"]While[/COLOR] .Busy: DoEvents: [COLOR="Navy"]Loop[/COLOR]
i2 = 1
[COLOR="Navy"]With[/COLOR] objIE.Document
DoEvents
[COLOR="Navy"]For[/COLOR] i = 0 To .Links.Length - 1
[COLOR="Navy"]If[/COLOR] Mid(.Links(i).outerHTML, 2, 17) = "A href=" & Chr(34) & "products/" [COLOR="Navy"]Then[/COLOR]
sAllPosts = sAllPosts & .Links(i).outerHTML & Chr(13)
txt = Split(.Links(i).outerHTML, Chr(34))(1)
Range("A2").Offset(i2, 0).Value = sURL & (txt)
i2 = i2 + 1
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] i
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] With
Range("A1").Value = "selleckchem.com product URL'[COLOR="Green"][B]s"[/B][/COLOR]
'[COLOR="Green"][B] Unload Internet Explorer instance from memory before exit[/B][/COLOR]
[COLOR="Navy"]Set[/COLOR] objIE = Nothing
[COLOR="Navy"]Exit[/COLOR] [COLOR="Navy"]Sub[/COLOR]
error_handler:
MsgBox ("Unexpected Error, I'[COLOR="Green"][B]m quitting.")[/B][/COLOR]
objIE.Quit
[COLOR="Navy"]Set[/COLOR] objIE = Nothing
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
