Importar Arquivo XML para Access

Boa Tarde

Estou a desenvolver um BD, no qual eu preciso dar entrada de NFse "Notas de Prestação de Serviço".
O XML vem a partir do site da Prefeitura de minha cidade. Porém eu gostaria de ter todos as notas no meu sistema.

Já verifique no repositório e ainda não encontrei nada semelhante.
Estes dados gostaria que fossem jogados na tabela, ou mesmo no formulário e alimentasse a tabela geral.

Se que alguém teria algum exemplo para que eu pudesse estudar e adaptar ao meu Banco?

Segue abaixo o arquivo XML

Código:

<?xml version="1.0" encoding="UTF-8"?>

-<CompNfse xmlns:ii="Actcon">


-<ii:Nfse>


-<ii:InfNfse>

<ii:Numero>201600001000001</ii:Numero>

<ii:CodigoVerificacao>ENGJ-PGTB</ii:CodigoVerificacao>

<ii:DataEmissao>2016-03-21T14:32:32</ii:DataEmissao>

<ii:Competencia>2016-03-00T00:00:00</ii:Competencia>

<ii:NaturezaOperacao>1</ii:NaturezaOperacao>

<ii:OutrasInformacoes>Prestação de serviço. Aula de Música.</ii:OutrasInformacoes>

<ii:DiscriminacaoDeducoes/>

<ii:Link>http://nfe.ipatinga.mg.gov.br/site/imprimirnotas.php?cod=MTMzMDA2MjY=&tipo=T&tprint=PDF</ii:Link>

<ii:QRCode>http://chart.apis.google.com/chart?cht=qr&chld=L|0&chl=http%3A%2F%2Fnfe.ipatinga.mg.gov.br%2Fsite%2Fimprimirnotas.php%3Fcod%3DMTMzMDA2MjY%3D%26tipo%3DT%26tprint%3DPDF&chs=80x80</ii:QRCode>


-<ii:Servico>


-<ii:Valores>

<ii:ValorServicos>100.00</ii:ValorServicos>

<ii:ValorDeducoes>0.00</ii:ValorDeducoes>

<ii:ValorAcrescimos>0.00</ii:ValorAcrescimos>

<ii:ValorInss>0.00</ii:ValorInss>

<ii:ValorPis>0.00</ii:ValorPis>

<ii:ValorCofins>0.00</ii:ValorCofins>

<ii:ValorIr>0.00</ii:ValorIr>

<ii:ValorCsll>0.00</ii:ValorCsll>

<ii:ValorIss>0.00</ii:ValorIss>

<ii:IssRetido>2</ii:IssRetido>

<ii:ValorIssRetido>0.00</ii:ValorIssRetido>

<ii:OutrasRetencoes>0.00</ii:OutrasRetencoes>

<ii:BaseCalculo>100.00</ii:BaseCalculo>

<ii:Aliquota>0</ii:Aliquota>

<ii:ValorLiquidoNfse>100.00</ii:ValorLiquidoNfse>

<ii:DescontoIncondicionado>0.00</ii:DescontoIncondicionado>

<ii:DescontoCondicionado>0.00</ii:DescontoCondicionado>

</ii:Valores>

<ii:CodigoCnae>8592-9/03</ii:CodigoCnae>

<ii:ItemListaServico>08.02</ii:ItemListaServico>

<ii:Discriminacao>Prestação de serviço. Aula de Música.</ii:Discriminacao>

<ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

</ii:Servico>


-<ii:PrestadorServico>


-<ii:IdentificacaoPrestador>

<ii:Cnpj>24317263000101</ii:Cnpj>

<ii:InscricaoMunicipal>21028300</ii:InscricaoMunicipal>

<ii:InscricaoEstadual/>

</ii:IdentificacaoPrestador>

<ii:RazaoSocial>CARLOS FERREIRA DE SOUZA</ii:RazaoSocial>


-<ii:Endereco>

<ii:Endereco>Rua Japão</ii:Endereco>

<ii:Numero>719</ii:Numero>

<ii:Complemento>A</ii:Complemento>

<ii:Bairro>Carirus</ii:Bairro>

<ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

<ii:Uf>MG</ii:Uf>

<ii:Cep>35164000</ii:Cep>

</ii:Endereco>


-<ii:Contato>

<ii:Telefone>3136683620</ii:Telefone>

<ii:Email>carlos.ferreira@gmail.com</ii:Email>

</ii:Contato>

</ii:PrestadorServico>


-<ii:TomadorServico>


-<ii:IdentificacaoTomador>


-<ii:CpfCnpj>

<ii:Cpf>00000000000</ii:Cpf>

</ii:CpfCnpj>

<ii:InscricaoMunicipal/>

<ii:InscricaoEstadual/>

</ii:IdentificacaoTomador>

<ii:RazaoSocial>JOÃO DA SILVA OLIVEIRA</ii:RazaoSocial>


-<ii:Endereco>

<ii:Endereco>Rua Mangaratiba</ii:Endereco>

<ii:Numero>719</ii:Numero>

<ii:Complemento/>

<ii:Bairro>Caravelas</ii:Bairro>

<ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

<ii:Uf>MG</ii:Uf>

<ii:Cep>35164000</ii:Cep>

</ii:Endereco>


-<ii:Contato>

<ii:Email>joaosilva@gmail.com</ii:Email>

</ii:Contato>

</ii:TomadorServico>


-<ii:OrgaoGerador>

<ii:CodigoMunicipio>3131307</ii:CodigoMunicipio>

<ii:Uf>MG</ii:Uf>

</ii:OrgaoGerador>

</ii:InfNfse>

</ii:Nfse>

</CompNfse>

Olá Deison, com uma busca por vezes encontramos o que pretendemos, veja como fazer
https://www.maximoaccess.com/t1115-busca-no-forum-search
Já vi vários exemplos e disversa tecnicas.

Poste o que tem e mais detalhes do que pretende concretamente importar.
Abraço

https://www.maximoaccess.com/t20159p3-importando-nota-fiscal-eletronica-xml-para-access
Veja se esse Topido do Amigo ahteixeira lhe ajuda!
Com a funcao dele, vc pode extrair campo a campo delimitando Inicio e Fim... daee so mandar pra onde quiser...

Rotina que lê NFe

Segue a parte da rotina em VB6 que pode ser adaptada a qq linguagem. O Microsoft XML tem que estar referenciado

Código:


   Dim XMLdoc As Object
   Set XMLdoc = CreateObject("Microsoft.XMLDOM")
   XMLdoc.async = False
   XMLdoc.Load (txtCaminho)
   
   Registros = XMLdoc.getElementsByTagName("infNFe/det").length   'Contando quantos itens tem o nó det (detalhes)

   For I = 0 To Registros - 1  'Varrendo todos os itens
       vetProdutos.Código = CStr(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/cProd").Item(0).Text)
       vetProdutos.Referência = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/cEAN").Item(0).Text, ".", ",")
       vetProdutos.Descrição = CStr(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/xProd").Item(0).Text)
       vetProdutos.Unidade_Medida = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/uCom").Item(0).Text, ".", ",")
       vetProdutos.Código_NCM = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/NCM").Item(0).Text, ".", ",")
       vetProdutos.Preço_Compra = Replace(XMLdoc.selectNodes("nfeProc/NFe/infNFe/det").Item(I).selectNodes("prod/vUnTrib").Item(0).Text, ".", ",")
       tbAuxiliar.AddNew
       tbAuxiliar!Código = vetProdutos.Código
       tbAuxiliar!Referência = vetProdutos.Referência
       tbAuxiliar!Descrição = Mid(vetProdutos.Descrição, 1, 60)
       tbAuxiliar!Unidade_Medida = Mid(vetProdutos.Unidade_Medida, 1, 2)
       tbAuxiliar!Código_Fornecedor = 1
       tbAuxiliar!Fornecedor = ""
       tbAuxiliar!Código_Linha = 1
       tbAuxiliar!Linha_Venda = ""
       tbAuxiliar!Linha_Demonstração = ""
       tbAuxiliar!Código_NCM = vetProdutos.Código_NCM
       tbAuxiliar!Percentual_IPI = vetProdutos.Percentual_IPI
       tbAuxiliar!Preço_Compra = CCur(vetProdutos.Preço_Compra)
       tbAuxiliar.Update
   Next I
   Set XMLdoc = Nothing