• 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!

  • MVP Logo
  • Recent Forum Posts

    AliGW

    Novice wanting to create a spreadsheet

    Thanks for the workbook - good start.



    For this, you could use conditional formatting to shade in the cells in column L that...

    AliGW Today, 05:49 PM Go to last post
    Mdenny

    Novice wanting to create a spreadsheet

    How do I attach the sheet I have? That is if it doesn't attach to this. Hopefully it will. I never wanted anyone to do the whole sheet for me, just needed...

    Mdenny Today, 05:16 PM Go to last post
    AliGW

    Please help

    Catherine: next time you start a thread here, please follow the forum rules and give it a descriptive title. "Please Help" gives us no clue...

    AliGW Today, 11:43 AM Go to last post
    AliGW

    Novice wanting to create a spreadsheet

    Firstly, it would be helpful if you could mock up something that shows the different views of your data you want to achieve - this can be very simplistic...

    AliGW Today, 09:31 AM Go to last post
    Mdenny

    Novice wanting to create a spreadsheet

    Jolivanes how rude of you to ASSUME! Nowhere in my post did I say do this for me as you so indicated! This was my first post asking for HELP, I was looking...

    Mdenny Yesterday, 09:52 AM Go to last post