< návrat zpět

MS Excel

Téma: VBA-Kalkulačka.htm rss

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
avatar
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
icon AL(20.2.2014 13:05)#017928
avatar
to je slušné 1citovat
kp57(20.2.2014 18:01)#017930
avatar
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
avatar
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
avatar
Díky paráda!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje