具有多个命名空间的VBA SelectSingleNode xpath

时间:2015-04-20 12:06:32

标签: xml vba excel-vba xpath excel

我试图通过带有两个命名空间的XML搜索xPath,但仍然在寻找其他主题似乎无法正常工作的其他人有类似问题:

XML:

<?xml version="1.0" encoding="utf-8"?>
<IE515 xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns="http://www.mf.gov.pl/xsd/ECS/IE515_v1-0.xsd" NrWlasny=""
   EmailPodmiotu="">
   <Zgloszenie UCWywozu="" UCWyprowadzenia="PL441010"
      P1a="EX" P1b="A" LiczbaPozycji="" LiczbaOpakowan="" CRN=""
      KrajWysylki="" KrajPrzeznaczenia="" Kontenery="0" MasaBrutto="">
      <Nadawca TIN="" Nazwa="" UlicaNumer="" KodPocztowy="" Miejscowosc=""
         Kraj="" EORI=""/>
      <Odbiorca Nazwa="" UlicaNumer="" KodPocztowy=""
         Miejscowosc="" Kraj=""/>
      <ZglaszajacyPrzedstawiciel KodPocztowy=""
         Miejscowosc="" Kraj="" Nazwa="" TIN="" EORI="" UlicaNumer=""
         Wskaznik="00300" Przedstawicielstwo="1"/>
      <TransportWewnetrzny
         Rodzaj="5"/>
      <TransportNaGranicy Rodzaj="4" Znaki="SAMOLOT"
         Kraj="DE"/>
      <Lokalizacja UC=""/>
      <WarunkiDostawy Kod=""
         MiejsceKod="" Miejsce=""/>
      <Transakcja Waluta="" Wartosc=""
         Kurs=""/>
      <MiejsceData Miejsce="" NazwiskoImie="" Telefon=""
         Data=""/>
      <Towar Nr="1" OpisTowaru="TestName" KodTowarowy="30000" KodTaric="00"
         KrajPochodzenia="PL" ProceduraWnioskowana="10"
         ProceduraPoprzednia="00" MasaNetto="1.4">
         <IloscTowaru Jm="NAR"
            KwalifikatorJm="G" Ilosc="8"/>
         <Opakowanie Rodzaj="PA" Znaki=","
            LiczbaOpakowan="2"/>
         <KodDodatkowyUE Kod="4099"/>
         <DokumentWymagany
            Kod="9DK8" Nr="Oswiadczenie"/>
         <DokumentWymagany Kod="N380"
            Nr="OUT1"></DokumentWymagany>
         <DokumentWymagany Kod="Y903"
            Nr=","/>
         <DokumentWymagany Kod="Y935" Nr=","/>
         <DokumentWymagany
            Kod="Y922" Nr=","/>
         <InformacjaDodatkowa Kod="30400"/>
         <WartoscTowaru
            Waluta="PLN" WartoscStatystyczna="953">
            <Korekta Kod="1STW"
               Wartosc="-200"/>
         </WartoscTowaru>
      </Towar>
   </Zgloszenie>
</IE515>

在我的代码中我试图像这样设置NameSpace propoerty:

xmlNameSpaces = "xmlns='http://www.mf.gov.pl/xsd/ECS/IE515_v1-0.xsd' xmlns:ds='http://www.w3.org/2000/09/xmldsig#'"
doc.setProperty "SelectionNamespaces", xmlNameSpaces

然后尝试搜索特定节点,但它找不到节点:

Set oAttribute = doc.SelectSingleNode("/IE515/Zgloszenie/Towar[1]/@OpisTowaru")`

你能解释命名空间属性应该如何使其工作吗?如果我有onl

,我可以这样做

1 个答案:

答案 0 :(得分:3)

您需要在设置SelectionNamespaces属性时为命名空间分配前缀,以便稍后可以在xpath中使用前缀:

xmlNameSpaces = "xmlns:d='http://www.mf.gov.pl/xsd/ECS/IE515_v1-0.xsd'"
doc.setProperty "SelectionNamespaces", xmlNameSpaces

Set oAttribute = doc.SelectSingleNode("/d:IE515/d:Zgloszenie/d:Towar[1]/@OpisTowaru")

上述xpath中的前缀d:对应于xmlns:d中的xmlNameSpaces