• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: IE.App. v Cyklu?

Zaslal/a kp57 24.8.2014 20:11

Ahoj lidi! Jsou uvedené dva cykly. První je jasný. Ale šel by napsat i druhý? Pokud by to nebylo moc složité.Sub Cykl_1()
For rdR = 1 To 300
Set IE = CreateObject("InternetExplorer.Application")
ieAdrs = "tralala" & rdR
IE.navigate ieAdrs
'nějaky kod
IE.Quit
Next rdR
Set IE = Nothing
End Sub

Sub Cykl_2()
Set IE = CreateObject("InternetExplorer.Application")
For rdR = 1 To 300
ieAdrs = "tralala" & rdR
IE.navigate ieAdrs
'--------------------
'nějaký příkaz - který by zavřel předchozí stránku, ale ne aplikaci
'--------------------
'nějaký kod
Next rdR
IE.Quit
Set IE = Nothing
End Sub

Zaslat odpověď >

---

Palooo(25.8.2014 9:05)#021294

na internete som nasiel sposob ako otvorit v jednom okne 3x tab zaroven je ich mozne menit

tak isto som si vsimol ze vo vasom priklade makro necaka kym docita stranku .... pri cykleni to moze sposobovat problem.

kedze netusim naco to presne potrebujete hadam staci tento priklad:

Příloha: 21294_ie.zip (14kB, staženo 15x)

citovat

kp57(25.8.2014 20:37)#021299

Palo díky!!! To je ono. Taky jsem hledal, ale na tohle jsem nenarazil. Ten můj kód je samozřejmě ořezaný, jen znázornění tématu. Časovač používám.cnCas = Now + TimeValue("00:01:00")
Do While (Not .ReadyState = 4 And .Busy)
If Now < cnCas Then
DoEvents
Else
Err = 462: GoTo KONEC
End If
Loop
Dík!citovat

kp57(27.8.2014 13:34)#021327

Tak jsem jásal brzo. Palo to je vlastně to samé jako nahoře Cykl_2. Všechny načtené stránky zůstávají v paměti. Reaguji tak pozdě, protože jsem chtěl zkusit MSXML2. Ale to se mi nepodařilo rozchodit.
Tak jsem udělal kompromis.Private Sub Cykl_3()
For rdR = 1 To 300
ieAdrs = "tralala" & rdR
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
IE.navigate ieAdrs
'počkat na načtení
'nějaký kod
If rdR Mod 5 = 0 Then
'Vynulovani pameti
IE.Quit: DoEvents: Set IE = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
End If
Next rdR
KONEC:
If Not IE Is Nothing Then IE.Quit
Set IE = Nothing
End Sub
I tak díky.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse