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

MS Excel

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

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.

Uzamčeno - nelze přidávat nové příspěvky.

---

Poki(20.3.2012 20:36)#007732

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... citovat

george(20.3.2012 22:01)#007734

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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse