MS Excel

Téma: "SVYHLEDAT" ve VBA

Zaslal/a GeorgeK 7.1.2019 10:10

Dobrý den
potřebuji poradit jak vyřešit následující:
V textovém "pseudo xml" souboru hledám položku <stat> + </stat>.

např.
<dat1>4.12.2015</dat1>
<dat2>412</dat2>
<stat>566, 663, 344</stat>
<dat3>koleda</dat3>
<dat5>velikonoce, vanoce, silvestr</dat5>

položky se zapisují do tabulky (kousek kodu)

strData = načtený soubor

....
strDat1 = Split(Split(strData, "<dat1>") (1), "</dat1>") (0)
.Range("A" & Rows.Count).End(xlUp).Offset(0,1) = strDat1
....

Problém je, že potřebuji do tabulky zapsat zkratky států nikoliv čísla.
Převodní tabulka (testovací) je přiložena (list2).
Jak to elegantně provést? Dala by se použit vlastní fce s využitím Case Select,
ale 250 převodů se mi opravdu nechce vypisovat a to ještě nemusí být konečné číslo.
Díky za pomoc.

Příloha: xlsx

42322_stat.xlsx (19kB, staženo 34x)

Zaslat odpověď >

Strana: « předchozí 1 2

elninoslov(8.1.2019 13:39)#042345

Pr.

Příloha: zip

42345_parse-hodnt-z-txt-suborov.zip (33kB, staženo 32x)

citovat

GeorgeK(9.1.2019 9:47)#042360

elninoslov napsal/a:

Pr.Příloha: 42345_parse-hodnt-z-txt-suborov.zip (33kB, staženo 4x)

Diky elninoslov

Vyšší dívčí, jdu studovat kod...citovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.