[Resolvido]Importar as duplicatas da Xml

boa tarde..

gostaria de saber como eu importo pra uma tabela as duplicatas de uma xml de nota fiscal as duplicatas ta nesta xml abaixo

-
-000022910-012012-06-06268.03
-000022910-022012-06-20268.04
-000022910-032012-07-04268.03

Olá, veja se o link abaixo ajuda.
http://maximoaccess.forumeiros.com/t20159-importando-nota-fiscal-eletronica-xml-para-access
Sou de Portugal e não compreendo o que é as duplicatas.
Abraço

Olá Nadir, 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

Cara nao consegui consigo so buscar uma linha e as duplicatas tiver mais de uma linha nao consigo importar as demais

postei ai meu bd

Olá, Sou de Portugal e não compreendo o que é as duplicatas.
E a base postada está com código protegido, desproteja e poste de novo.

Desbloqueado

Olá, pode explicar melhor o que pretende?
Quando poder responder à minha questão da mensagem nº 2 e nº 6 talvez consiga perceber para tentar ajudar.
Abraço

o que eu quero importar na na xml e tambem ta nesta imagem aqui

alguem consegue me ajudar na importação das duplicatas

up?

Bom, apesar da mensagem nº 2, 6 e 7, veja se é isto que pretende:

Código:

Private Sub Comando0_Click()

meuFicheiro = Application.CurrentProject.Path & "\31140961490561002901550100005802211387902291.xml"
    
    
    Open meuFicheiro For Input As #1
        Do Until EOF(1)
            Line Input #1, textoLinha
             textoXml = textoXml & textoLinha
        Loop
    
        Dim i As Long, j As Long
        Dim strInico, strFim, strSaida As String
        Dim tf As Integer
        
        strInicio = "<nDup>"
        strFim = "</nDup>"
        i = 1
        j = 1
        tf = InStrRev(textoXml, strInicio)

calc:
        i = InStr(i, textoXml, strInicio)
        j = InStr(j, textoXml, strFim)
        strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
        i = i + 1
        j = j + 1
        
        MsgBox strSaida
        
        If i <> tf + 1 Then
            GoTo calc
        End If
    
    
    Close #1

End Sub


Será necessário ajuste para restantes campos.
Abaixo teste
Abraço

obrigado pela ajuda

mas como que faço pra ter a quantidade de registro

tipo assim nesta que te mandei sao 3 arquivos de duplicatas 580221-01, 580221-02, 580221-3

ai eu queria um total de arquivos que neste aqui tem 3

Olá, altere o código do ficheiro acima por este (a negrito alteração):

Private Sub Comando0_Click()

meuFicheiro = Application.CurrentProject.Path & "\31140961490561002901550100005802211387902291.xml"
   
   
   Open meuFicheiro For Input As #1
       Do Until EOF(1)
           Line Input #1, textoLinha
            textoXml = textoXml & textoLinha
       Loop
   
       Dim i As Long, j As Long
       Dim strInico, strFim, strSaida As String
       Dim tf, contador As Integer
       
       strInicio = ""
       strFim = ""
       i = 1
       j = 1
       tf = InStrRev(textoXml, strInicio)
       contador = 0

calc:
       i = InStr(i, textoXml, strInicio)
       j = InStr(j, textoXml, strFim)
       strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
       i = i + 1
       j = j + 1
       contador = contador + 1
       
       MsgBox strSaida
       
       If i <> tf + 1 Then
           GoTo calc
       End If
   
       MsgBox "total contador: " & contador
   
   Close #1

End Sub

Abraço

muito obrigado ahteixeira pela sua atencao

Olá, Obrigado pelo retorno o forum agradece.
Abraço