Get existing IE via VBA

by

A compressed combination of the above answers, here’s what works for me.

GetIE Function

(No references required.)

Function GetIE() As Object
'return an object for the open Internet Explorer window, or create new one
  For Each GetIE In CreateObject("Shell.Application").Windows() 'Loop to find
    If (Not GetIE Is Nothing) And GetIE.Name = "Internet Explorer" Then Exit For 'Found!
  Next GetIE
  If GetIE Is Nothing Then Set GetIE=CreateObject("InternetExplorer.Application") 'Create
  GetIE.Visible = True 'Make IE window visible
End Function

Example Usage:

Sub demo()
    Dim ie As Object
    Set ie = GetIE                                        'get new/existing IE object
    ie.Navigate "http://stackoverflow.com", 2             '2=don't keep history
    Do: DoEvents: Loop While ie.Busy or ie.ReadyState <> 4'wait til loaded
    Stop                                                  'do your stuff
    ie.Quit                                               'close IE
    Set ie = Nothing                                      'clean up
End Sub

More Related Contents:

  1. Automate IE via Excel to fill in a dropdown and continue
  2. Controlling Internet Explorer local intranet using Excel VBA
  3. VBA WinHTTP to download file from password proteced https website
  4. How do you change the value of a cell in excel by clicking on it using VBA? [closed]
  5. How to avoid using Select in Excel VBA
  6. How do I use FileSystemObject in VBA?
  7. Convert Text to Date?
  8. Run Excel Macro from Outside Excel Using VBScript From Command Line
  9. Importing text file into excel sheet
  10. Loop through each cell in a range of cells when given a Range object
  11. Checking for #N/A in Excel cell from VBA code
  12. Non-web SQL Injection
  13. Error: “Could Not Find Installable ISAM”
  14. Filling any empty cells with the value above
  15. Is there a way to slow down a Web Scraper so it will pick up the code?
  16. Create a folder and sub folder in Excel VBA
  17. One-dimensional array from Excel Range
  18. VBA Excel sort range by specific column
  19. Renaming Files with Excel VBA
  20. Delete cells in an Excel column when rows = 0
  21. Is there a way to import data from .csv to active excel sheet?
  22. Break out of a While…Wend loop
  23. How to make safe API Timers in VBA?
  24. How to copy data from closed workbooks (keeping them closed) into master workbook using VBA?
  25. EntireRow.Delete performance issue
  26. How do I reference tables in Excel using VBA?
  27. How to extract groups of numbers from a string in vba
  28. Importing Excel spreadsheet data into another Excel spreadsheet containing VBA
  29. How to highlight selected text within excel
  30. How to fix a VBA “type mismatch” error after switching to 64-bit Excel

Leave a Comment