< návrat zpět

MS Excel

Téma: jak načíst xml z netu rss

Zaslal/a george 20.3.2012 14:11

Dobrý den,
dovoluji si opět požádat o pomoc. Do právě psaného modulu potřebuji načíst data ze stránek ares registr. Když jsem zadal z VBA dotaz

http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=27074358"
tak mi to vrací spoustu všeho možného, ale hlavně v IE okně. Co mám udělat, abych to automaticky dostal do listu? S tím vybráním dat si asi poradím. Moc děkuji a přeji hezký den.

stop Uzamčeno - nelze přidávat nové příspěvky.
icon Poki(20.3.2012 20:36)#007732
Poki
Excel 2007 a 2010 (o 2003 nevim) ma moznost importu dat z xml (a to jak z disku tak webu).
Karta Data/Načíst externí data/z jiných zdrojů/xml - a v dialogu do nazvu souboru zadat bud cestu nebo www stranku... 2citovat
george(20.3.2012 22:01)#007734
avatar
aha. Takže má představa, že když mám IČO, které vepíšu do input boxu, stisknu tlačítko a dostanu po chvíli do buněk informace z ARESu byla mylná?
Zatím mi to otevře IE se souborem, ten ručně uložím na disk a pak ručně načtu přes XML. Jde to nějak zautomatizovat? Stačilo by mi dostat to automaticky na list. I tak děkuji za pomoc. Hezký den.citovat
Jeza.m(21.3.2012 8:05)#007736
Jeza.m
Excel 2003
Data -> XML -> Importovat a pak zadat tu adresu.

Pomocí záznamu makra:
Dim promenna As String
promenna = "27074358"
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=" & promenna, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

M@citovat
george(21.3.2012 8:24)#007737
avatar
Děkuj imoc. Než jsem si stačil přečíst poslední příspěvek, přišel jsem na to. Jen POZOR. Zopakoval jsem 2x dotaz se stejným IČEm a zablokovalo mi to přístup.
nakonec ta rutina vypadá takto:


Sub ares()
'vybere stránku
Sheets("ares").Activate
'vymaže záznam, pokud tam je
Range("Tabulka5[#All]").Select
Selection.ClearContents
' v A10 má požadované IČO. POZOR!!! pokud se bude opakovat, zablokuje se přístup.
ActiveWorkbook.XmlImport URL:= _
"http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=" & Range("A10"), ImportMap:= _
Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub


Vymazání staré tabulky je nutné, jinak 1004 - jiná struktura odpovědi

Nakonec to nebylo tak těžké, ale bez Vás bych to hledal dlouho. Moc děkuji a hezký den přeji.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