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

MS Excel

Téma: VBA-Kalkulačka.htm

Zaslal/a kp57 19.2.2014 17:59

Ahoj lidi! (EXCEL 2010)
Dalo by se procedurou VBA zadat do kalkulačky rok, spustit přepočet a pak stáhnout tabulky?!
http://www.fourmilab.ch/earthview/pacalc.html#phtab
Kalkulačka jde uložit off.

Zaslat odpověď >

---

Palooo(20.2.2014 9:38)#017918

tak a vylustil som to .) uz mozte robit ludom zlobu na webovkach pomocou VBA

Sub test()
Dim IE As Object
Dim objCollection As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.fourmilab.ch/earthview/pacalc.html#patab"

Set objCollection = IE.document.getElementsByTagName("input")
For Each aTag In objCollection
If aTag.Name = "year" Then aTag.Value = "2020"
Next

For Each aTag In objCollection
If aTag.DefaultValue = "Calculate" Then aTag.Click
Next

Set objCollection = IE.document.getElementsByTagName("textarea")
For Each aTag In objCollection
If aTag.Name = "results" Then aTEXT = aTag.Value
Next

End Sub
premenna aTEXT ma tie informacie co potrebujete

- este jedna vec tam treba osetrit to makro necaka kym otvori tu stranku takze treba tam nastavit nejake 2-3s opozdenie aby to mohlo fungovat
- ale to uz hadam ze si upravite podla seba :)citovat

AL(20.2.2014 13:05)#017928

to je slušné citovat

kp57(20.2.2014 18:01)#017930

Moc děkuji! Neboj se, je to pro mojí soukromou potřebu. Nemám potřebu někde něco někomu nutit. Jinak nedostatečně jsem se vyjádřil. Mám tu kalkulačku uloženou na disku (offline). Moje chyba, nevadí, použiji tento kód.citovat

Palooo(21.2.2014 11:27)#017942

este som to trosku vylepsil aby sa nezobrazovalo explorer okno + zatvorenie po skonceni a to 2-3 sec. cakanie

Sub test()
Dim IE As InternetExplorer

Set IE = New InternetExplorer
'IE.Visible = True
IE.Navigate "http://www.fourmilab.ch/earthview/pacalc.html#patab"

While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

Set objCollection = IE.document.getElementsByTagName("input")
For Each aTag In objCollection
If aTag.Name = "year" Then aTag.Value = "2020"
Next

For Each aTag In objCollection
If aTag.DefaultValue = "Calculate" Then aTag.Click
Next

Set objCollection = IE.document.getElementsByTagName("textarea")
For Each aTag In objCollection
If aTag.Name = "results" Then aTEXT = aTag.Value
Next

IE.Quit
Debug.Print aTEXT
End Sub


pri tychto zmenach ale musite v referenciach nastavit Microsoft Internet Controlscitovat

kp57(21.2.2014 19:55)#017944

Díky paráda!citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse