MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  Alvaro Teixeira 25/8/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
    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Attachmentler_xml_Line_Input.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 573 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  Alvaro Teixeira 4/9/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:
    http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos
    avatar
    Trentini89
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  Trentini89 29/9/2014, 14:11

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  Alvaro Teixeira 29/9/2014, 14:14

    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
    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  georgellis 23/1/2024, 17:49

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

    Conteúdo patrocinado


    [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access - Página 1 Empty Re: [Resolvido]Importando Nota Fiscal Eletrônica (.xml) para Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:35