[Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

Olá!

Sou novo no fórum e já pesquisei por tudo aqui, peguei alguns exemplos, mas não consegui fazer o que preciso. Queria saber se alguém poderia me ajudar.

Tenho um arquivo .XML e gostaria de importar alguns dados do mesmo para uma tabela no access, na verdade eu teria uns 5 arquivos destes por dia, e gostaria de importar todos que estiverem em uma determinada pasta de uma só vez.

Os dados a serem importados são:

Número da NF: nNF> 192473

---

Fornecedor: xNome> JOSAPAR JOAQUIM OLIVEIRA S/A PARTICIP

---

Placa: placa> EWU9202

---

Peso Liquido: pesoL> 23760.000

---

Valor: vOrig> 44748.00
Segue 2 arquivos de exemplo em anexo.

Desde já agradeço a quem puder me ajudar.

Olá, Bem-vindo ao forúm.
A procura do forum "Busca" pode ser muito preciosa.
Verifica este tópico http://maximoaccess.forumeiros.com/t3230-resolvidoimporta-xml-da-nota-fiscal-eletronica
Abraço

Bom dia ahteixeira,

Já havia entrado nestes links antes de postar, porem não consegui resolver meu problema, não consigo pegar as informações dentro das tags <> ...
Vlw.

Olá,

Como o ficheiro XML não é muito grande, acho que com o seguinte código consegues resolver:

Código:

Option Compare Database
Dim meuFicheiro As String, textoXml As String, textoLinha As String

Private Sub Comando0_Click()

meuFicheiro = Application.CurrentProject.Path & "\43140887456562000807550080001925541047421805-procNFe.xml"
    
    
    Open meuFicheiro For Input As #1
        Do Until EOF(1)
            Line Input #1, textoLinha
             textoXml = textoXml & textoLinha
        Loop
    Close #1

'MsgBox textoXml, vbInformation, "Conteodo do Xml"
MsgBox "Campo nNF:   " & separaEntreDuasStringsXML(textoXml, "<nNF>", "</nNF>")
MsgBox "Campo xNome:   " & separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>")
MsgBox "Campo placa:   " & separaEntreDuasStringsXML(textoXml, "<placa>", "</placa>")
End Sub

'2014 Alvaro Teixeira
Function separaEntreDuasStringsXML(strTotal As String, strInicio As String, strFim As String)
Dim i As Long, j As Long
    i = InStr(strTotal, strInicio)
    j = InStr(strTotal, strFim)
    separaEntreDuasStringsXML = Mid(strTotal, i + Len(strInicio), j - i - Len(strInicio))
End Function

Segue abaixo o meu teste.
Abraço

Olá Augusto, como vai a situação o forum agradece o retorno.

Se está concluído, não se esqueça de dar o tópico como resolvido, veja link abaixo:
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

Muito obrigado ahteixeira!!! Com o seu código vou conseguir resolver meu problema, vlw.

Obrigado pelo retorno,

Não se esqueça de dar o tópico como resolvido, veja link abaixo:
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

o colega poderia postar uma versao do seu trabalho funcionando. tambem tenho essa necessidade, gostaria de ver como foi feito