Late Binding on SHDocVw

tinfanide · #1 05-16-2012, 04:44 AM

Code:

Option Explicit
Public oIE As SHDocVw.InternetExplorer
Public oSW As SHDocVw.ShellWindows

Sub test()

Set oIE = New SHDocVw.InternetExplorer
Set oSW = New SHDocVw.ShellWindows
oIE.Visible = True
MsgBox oIE.LocationURL

End Sub

I've used Early Binding with reference added to the library objects (HTML Objects & Internet Control)
But I wonder how to do it in Late Binding, especially for SHDocVw.Internet Explorer and SHDocVw.ShellWindows.

Code:

Dim oShell As Object, oShellWindows As Object
Set oShell = CreateObject("Shell.Application")
Set oShellWindows = oShell.windows

tinfanide · #2 05-19-2012, 10:00 PM

Code:

Option Explicit
Public oIE As Object
Public oSW As Object

Sub test()

Set oIE = CreateObject("InternetExplorer.Application")
Set oSW = CreateObject("Shell.Application")

For Each oIE In oSW.Windows
    MsgBox oIE.LocationURL
Next

End Sub

Found it.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Binding Problems?	tinfanide	Word VBA	1	02-03-2012 06:15 AM