Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Otevření webových stránek v Excelu (VBA)

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Otevření webových stránek v Excelu (VBA)

Autor: Gábina ♀

9:05:46 07.09.2016

Tady radí použít metodu Navigate2 pro další otevírané záložky, tak to zkus...

[url]http://answers.microsoft.com/en-us/ie/forum/ie11-windows_7/open-multiple-websites-in-one-window/f880225a-8063-4f5d-91d2-3fbd193ca13c[/url]

[code]
Sub Weather()
' Look at weather websites
Dim strURL As String
Dim objIE As Object
Dim arrSites(4)

arrSites(0) = "http://cleardarksky.com/c/AnaheimCAkey.html?1"
arrSites(1) = "http://www.goes.noaa.gov/GSSLOOPS/wcir.html"
arrSites(2) = "http://www.weather.com/weather/hourbyhour/l/92886:4:US"
arrSites(3) = "http://www.wunderground.com/cgi-bin/findweather/getForecast?query=92886"
Set objIE = CreateObject("InternetExplorer.Application")
For i = 0 To 3 Step 1
strURL = arrSites(i)
If i = 0 Then
objIE.Navigate strURL
Else
objIE.Navigate2 strURL, 2048
End If
Next i
objIE.Visible = True
Set objIE = Nothing
End Sub
[/code]

Citovat příspěvek

 

Otevření webových stránek v Excelu (VBA)

Autor: Petr Filipi ♂

18:05:19 04.09.2016

Zdravím vše.
Potřeboval bych poradit, jak otevřít více webových stránek na záložkách jednoho spuštěného Internet Exploreru. Teď to mám uděláno takto:
If celkem > 0 Then
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL(2, 1), 0
If celkem > 1 Then
While .Busy Or .ReadyState <> 4: DoEvents: Wend
For m = 2 To 8
radek = 1
If m = 2 Then radek = 2

Do Until URL(m, radek) = ""
.Navigate URL(m, radek), 2048&
radek = radek + 1
Loop
Next m
End If
End With
End If

Mám 8 sloupečku (B-H, proto cyklus 2-8) a v každém sloupečku mám několik náhodně vybraných čísel, které znamenají určitou webovou stránku (ty jsou jako pole URL(sloupec, nahodné číslo)).
Teď mi to funguje, ale když chci otevřít např. 5 webových stránek, tak ty se mi otevřou na 5 záložkách, ale zároveň se mi otevře i 5x Internet Explorer.
Na webu jsem nic nenašel, tak snad tady.
Aplikace má za úkol otevřít náhodně vybrané diskáty ze stránek http://cestina.diktaty.cz/index.php?sekce=1 a u každého písmena otevře zadaný počet disktátů (podle toho, jak synovi to které písmeno jde).

Petr

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: