Skip to content

Instantly share code, notes, and snippets.

@ganesh092929

ganesh092929/Tut5-BrowseToSite.xlsm

Last active December 31, 2017 08:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ganesh092929/ae776f5de50e6d55f27a9987620376f1 to your computer and use it in GitHub Desktop.
Save ganesh092929/ae776f5de50e6d55f27a9987620376f1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Tut5-BrowseToSite.xlsm
Sub BrowseToSite()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.google.com"
'Waiting for Internet Explorer to load Fully
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
'Print LocationName & LocationURL
Debug.Print IE.LocationName
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment