Quantcast
Channel: Internet Explorer Web Development forum
Viewing all articles
Browse latest Browse all 3527

Open multiple websites in one window

$
0
0

I would like to open multiple websites in one window with multiple tabs using VBA in Excel.  My present code opens each website in a separate window.

Sub Weather()
'
' Look at weather websites

'
    Dim URL As String
    Dim ie As Object
        
    URL = "http://cleardarksky.com/c/AnaheimCAkey.html?1"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate URL
    Set ie = Nothing

    URL = "http://www.goes.noaa.gov/GSSLOOPS/wcir.html"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate URL
    Set ie = Nothing
    
    URL = "http://www.weather.com/weather/hourbyhour/l/92886:4:US"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate URL
    Set ie = Nothing
   
    URL = "http://www.wunderground.com/cgi-bin/findweather/getForecast?query=92886"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate URL
    Set ie = Nothing
End Sub


Viewing all articles
Browse latest Browse all 3527

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>