MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Trentini89
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2014

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

    Mensagem  Trentini89 em Qua 20 Ago 2014, 14:49

    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.
    Anexos
    NFe's.zip
    2 Notas Fiscais .xml
    Você não tem permissão para fazer download dos arquivos anexados.
    (9 Kb) Baixado 167 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui 21 Ago 2014, 11:09

    Olá, Bem-vindo ao forúm.
    A procura do forum "Busca" pode ser muito preciosa.
    Verifica este tópico [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    Trentini89
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2014

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

    Mensagem  Trentini89 em Qui 21 Ago 2014, 12:24

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Seg 25 Ago 2014, 14:54

    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
    Anexos
    ler_xml_Line_Input.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 283 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui 04 Set 2014, 12:38

    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:
    [Você precisa estar registrado e conectado para ver este link.]

    Trentini89
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2014

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

    Mensagem  Trentini89 em Seg 29 Set 2014, 14:11

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Seg 29 Set 2014, 14:14

    Obrigado pelo retorno,

    Não se esqueça de dar o tópico como resolvido, veja link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 16 Ago 2017, 16:24