Sub GetIE()
Dim shellWins As ShellWindows
Dim IE As InternetExplorer
Dim HL As Hyperlink
Set shellWins = New ShellWindows
'If shellWins.Count > 0 Then
' Get IE
'Set IE = shellWins.Item(0)
'Else
' Create IE
Set IE = New InternetExplorer
IE.Visible = True
'End If
vAddr = ActiveCell.Hyperlinks(1).Address
IE.Navigate vAddr
While IE.Busy
DoEvents
Wend
With ActiveSheets
Range("K1").Select
IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
.Paste
End With
IE.Quit
Set IE = Nothing
Set shellWins = Nothing
End Sub
The code stops at this line: IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
Do what I did wrong?
Thank you!
Bookmarks