• Examples Of Using Late Binding To Connect To Internet Explorer

    Introduction:
    This article contains an example of using late binding to create a new instance of Internet Explorer.

    Please note that you can copy these code examples into any application that supports VBA, but the called application must be installed on your system for it to work. Just copy them into a standard module and run them. (No references need to be set in the Visual Basic Editor in order to make this code work.)

    Create a New instance of Internet Explorer:
    This code will create a new instance of Internet Explorer and bind to it. It will then navigate to the ExcelGuru home page.
    Code:
    Public Sub CreateInternetExplorer()
        'Author       : Ken Puls (www.excelguru.ca)
    
    
        'Create an instance of Microsoft Internet Explorer
        Dim objApp As Object
    
    
        'Create instance and set to visible
        On Error GoTo ErrHandler
        Set objApp = CreateObject("InternetExplorer.Application")
        With objApp
            .Visible = True
        End With
    
    
        'Add some text to the document
        With objApp
            .Navigate Url:="http://www.excelguru.ca/"
        End With
    
    
    ErrHandler:
        'Release the object and resume normal error handling
        Set objApp = Nothing
        On Error GoTo 0
    End Sub
    Bind to an existing instance of Internet Explorer:
    You cannot use the GetObject method used for the rest of the applications to bind to an existing Internet Explorer instance. In order to do this, we need to reach to a different method using Microsoft Internet Controls:
    Code:
    Public Sub GetInternetExplorer()
        'Edited/Annotated by: Ken Puls (www.excelguru.ca)
        'IMPORTANT:  Requires reference to Microsoft Internet Controls!
        'Go to Tools --> References --> Microsoft Internet Controls
    
    
        Dim shellWins As SHDocVw.ShellWindows
        Dim explorer As SHDocVw.InternetExplorer
        
        Set shellWins = New SHDocVw.ShellWindows
        
        For Each explorer In shellWins
            If explorer.Name = "Internet Explorer" Then
                Debug.Print explorer.LocationURL
                Debug.Print explorer.LocationName
            End If
        Next
        
        Set shellWins = Nothing
        Set explorer = Nothing
    
    
    End Sub

     

    I'm afraid that you must be logged in to comment or leave a testimonial. I wish it could be otherwise, but I'm trying to keep my site spam free for everyone's benefit. If you don't yet have an account it's completely free to sign up, and a very quick process. Simply click here to Register. Not only can you post a comment here, but it gives you full access to posts questions in our forum as well!

     

    If you already have an account, and just haven't logged in yet, what are you waiting for? Login Now!