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]Importar Info de Produtos do XML

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 15:38

    Pessoal, busquei pelo fórum e não encontrei nada que pudesse me ajudar, pois os exemplos que encontrei eu consigo importar um campo qualquer do xml, porém como caso do item/produto que repete e possui os mesmos nomes de campos não consegui avançar no meu objetivo de importar todos os dados da NF que constam no xml, alguém já passou por isso e poderia me dar o caminho?

    Quero importar para tabela ou form, tanto faz, depois eu importar eu trato os dados

    Código:

    <det nItem="1"><prod><cProd>80 358</cProd><cEAN>7898563820998</cEAN><xProd>KIT EMBREAGEM JAC J3</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>293.7400000000</vUnCom><vProd>293.74</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>293.7400000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="2"><prod><cProd>80 336</cProd><cEAN>7898563820097</cEAN><xProd>KIT EMBREAGEM KIA SOUL/CERATO</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>313.0700000000</vUnCom><vProd>313.07</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>313.0700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="3"><prod><cProd>80 337</cProd><cEAN>7898563820158</cEAN><xProd>KIT EMBREAGEM HYUNDAI I30</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>330.9300000000</vUnCom><vProd>330.93</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>330.9300000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="4"><prod><cProd>80 349</cProd><cEAN>7898563820899</cEAN><xProd>KIT EMBREAGEM HYUNDAI IX35 FLEX</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>462.7000000000</vUnCom><vProd>462.70</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>462.7000000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="5"><prod><cProd>80 345</cProd><cEAN>7898563820493</cEAN><xProd>KIT EMBREAGEM MITSUBISHI L200 TRITON</xProd><NCM>87089300</NCM><EXTIPI>001</EXTIPI><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>498.9200000000</vUnCom><vProd>498.92</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>498.9200000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>2</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>
    <det nItem="6"><prod><cProd>80 346</cProd><cEAN>7898563820554</cEAN><xProd>KIT DE EMBREAGEM SUZUKI JIMNY 1.3L</xProd><NCM>87089300</NCM><CFOP>5403</CFOP><uCom>JG</uCom><qCom>1.0000</qCom><vUnCom>279.7700000000</vUnCom><vProd>279.77</vProd><cEANTrib/><uTrib>JG</uTrib><qTrib>1.0000</qTrib><vUnTrib>279.7700000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMSSN102><orig>7</orig><CSOSN>400</CSOSN></ICMSSN102></ICMS><PIS><PISNT><CST>07</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo em Seg 17 Ago 2015, 15:58

    Veja se ajuda;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 17:27

    Valeu grande Paulo!

    Acabei encontrando o código abaixo em outro fórum e consegui importar todos os dados separadamente, agora é só botar a mão na massa para tratar o formato importado:

    Private Sub Comando0_Click()

    Const acAppendData = 1
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase "C:\elper\database171.accdb"
    objAccess.ImportXML "C:\elper\nfe000018.xml", acAppendData

    End Sub


    Este outro também funciona:
    [Você precisa estar registrado e conectado para ver este link.]

    Private Sub Comando0_Click()

    Application.ImportXML _
    DataSource:="C:\elper\nfe000018.xml", _
    ImportOptions:=1

    End Sub

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  Eloirp em Seg 17 Ago 2015, 17:32

    Resolvido e espero que ajude mais alguém...

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Importar Info de Produtos do XML

    Mensagem  JPaulo em Ter 18 Ago 2015, 10:12

    Obrigado pelo retorno e contribuição.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 11 Dez 2016, 00:19