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.