< návrat zpět

MS Excel


Téma: Načtení dat z ARESU ve formuláři rss

Zaslal/a 18.10.2017 22:01

Zdravím,
Prohledal jsem toto forum,něco tu o načítání z Aresu je,ale pouze v sešitu.Potřeboval bych provádět načítání ve formuláři.
Půjde mi pomoci?..
Děkuji

Zaslat odpověď >

#038062
avatar
Zapomněl jsem přílohu...
Příloha: zip38062_z-aresu-do-formulare.zip (24kB, staženo 143x)
citovat
#038068
avatar
A chcete po nás co? Aby se to samo, no to přece, jak je to, Ares.citovat
#038069
Merlin99
Ahoj,
nějaký příklad na:

https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/automaticky-import-dat-o-firme-z-registru-ares-pomoci-makra-s-xml-dotazem/citovat
#038078
avatar

Merlin99 napsal/a:

Ahoj,
nějaký příklad na:

https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/automaticky-import-dat-o-firme-z-registru-ares-pomoci-makra-s-xml-dotazem/


Děkuji za tipcitovat
#038084
avatar
Ahoj
Zkusil jsem,jak radil Merlin99 nějaký příklad naimplementovat do formuláře,ale nefunguje.Lze nalézt kde dělám chybu?

Private Sub CB_ARES_Click()

Application.ScreenUpdating = False 'potlačí obnovování obrazovky
Application.DisplayAlerts = False 'potlačí varovné hlášky

'vloží nový list na konec se jménem ares
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"

Sheets("ares").Activate 'přesun na tento nový list
'XML dotaz do ARESU s tím, že ičo máme na první listu v buňce C2 a importovná data chceme vložit do buňky A1
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=" & txtIC.Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

Sheets(1).Activate 'přesun zpět na první list

'přenesení údajů z pomocného listu do kolonek formuláře
Sheets("ares").Range("AJ3") = txtPLNYNAZEV 'přenesení názvu firmy
Sheets("ares").Range("DA3") = txtULICE 'přenesení ulice
Sheets("ares").Range("DD3") = txtPSC_MISTO 'přenesení č.p.
Sheets("ares").Range("AK3") = txtIC 'přenesení ič

Sheets("ares").Delete 'smazání pomocného listu

Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = FaTruelse 'obnoví varovné hlášky

End Sub
Příloha: zip38084_z-aresu-do-formulare-2.zip (266kB, staženo 55x)
citovat
#038086
Stalker
Moc sem to nestudoval, ale pokud chceš načítat data z listu do formuláře máš ten kód obráceně
'přenesení údajů z pomocného listu do kolonek formuláře
Sheets("ares").Range("AJ3") = txtPLNYNAZEV 'přenesení názvu firmy
Sheets("ares").Range("DA3") = txtULICE 'přenesení ulice
Sheets("ares").Range("DD3") = txtPSC_MISTO 'přenesení č.p.
Sheets("ares").Range("AK3") = txtIC 'přenesení ič

by mělo být takto:
Me.txtPLNYNAZEV = Sheets("ares").Range("AJ3")
Me.txtULICE = Sheets("ares").Range("DA3")
Me.txtPSC_MISTO = Sheets("ares").Range("DD3")
Me.txtIC = Sheets("ares").Range("AK3")
citovat
#038089
avatar
Stalker:
Jo to je ono.Po úpravě jede.
Děkuji za Tvůj čas.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