MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 137 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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 242 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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: Dom 04 Dez 2016, 14:12