[Resolvido]Importar dados xml

Boa tarde a todos

Gostaria de importar do arquivo xml apenas a chave da NFe e os lacres.
para o mdb.


Alguém poderia me ajudar para fazer este código.


Os lacre podem variar de quantidade e quantidade numérica.


Certo da boa atenção desde já agradeço.

Mestre obrigado pelo atendimento, não tenho conhecimento para tanto então peço me ajudar um pouco mais   

Onde coloco este código? no botão!!!???
dim strLinha$
Open "C:\NomePasta\NomeArquivo.xml" For Input As #1
Do While Not EOF(1)
   Input #1, strLinha
'aqui faz a programação para extrair os valores
Loop
Close #1


Por exemplo, vc pode pegar a posição das palavras LACRES e TANQUE com a função instr() e capturar o que esta no meio

...Lacres: 5389/5390/5391/5392/5393/5394/5395/5396.Tanque 01/02/03/04...


Algo assim:

E esta Linha???

me!lacre = mid(strlinha,instr(strlinha,"lacres:")+7,instr(strlinha,"tanque"))



Juntei em um botão, porém não faz nada...

poderia verificar ou estou totalmente errado?   

Up.

Boa tarde,
Para recolher a NFe:
Sub ImportaLacre()
Dim strLinha$
Open "C:\Documents and Settings\Neves\Os meus documentos\Downloads\NFe50140326831727000104550010000057161125710034_20140321100151.xml" For Input As #1
Do While Not EOF(1)
Input #1, strLinha
'aqui faz a programação para extrair os valores
If InStr(strLinha, "infNFe Id=") > 0 Then
MsgBox Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)
End If
Loop

Close #1
End Sub

Agora tem de ver qual a lógica de ler o lacre

Alexandre obrigado pelo atendimento e peço desculpas mas não consegui colocar o evento para funcionar no botão, teria como alguém fazer o evento funcionar no botão e carregar a numeração na tabela.


    

Boa tarde,
Nomeie a tabela de forma normalizada: ImportarLacre
Coloque num módulo e execute:
Option Compare Database
Option Explicit

Sub ImportaLacre()
Dim strLinha$, strNFE As String
Open "C:\Documents and Settings\Neves\Os meus documentos\Downloads\NFe50140326831727000104550010000057161125710034_20140321100151.xml" For Input As #1
Do While Not EOF(1)
Input #1, strLinha
'aqui faz a programação para extrair os valores
If InStr(strLinha, "infNFe Id=") > 0 Then
strNFE = Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)
If DCount("*", "ImportarLacre", "NFe='" & strNFE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(NFe) VALUES ('" & strNFE & "')"
End If
End If
Loop

Close #1
End Sub

Alexandre estou a queimar o tico e o teco mais não vai...    

Não consigo fazer importar o lacre poderia por favor mandar o código para importar os lacres?


E como chamo este modulo no botão?

Boa tarde...

O codigo ficou conforme abaixo, porém só esta buscando a chave da nota e não esta a buscar os lacres e não da nem erro, qual o erro.   

Sub Importalacre()
Dim strLinha$, strNFE As String, strLACRE As String
Open "C:\Documents and Settings\Anderson\Desktop\Nova pasta\NFe50140326831727000104550010000057161125710034_20140321100151.xml" For Input As #1

Input #1, strLinha
'aqui faz a programação para extrair os valores
If InStr(strLinha, "infNFe Id=") > 0 Then
strNFE = Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)
If DCount("*", "ImportarLacre", "NFe='" & strNFE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(NFe) VALUES ('" & strNFE & "')"
If InStr(strLinha, "Lacre:") > 0 Then
strLACRE = Mid(strLinha, InStr(strLinha, "Lacre:") + 11, InStr(strLinha, ".Tanque") - InStr(strLinha, "Lacre:") - 13)
If DCount("*", "ImportarLacre", "LACRE='" & strLACRE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(LACRE) VALUES ('" & strLACRE & "')"
End If
End If
End If
End If

Close #1
End Sub

Up   

Por favor alguém poderia comentar o significado desta formula VBA conforme cor azul:

tentando melhorar a pergunta, por que estes números????



strNFE = Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)



Att,

Boa noite,
1 - Tenha mais calma e não pressione demasiado, pois somos todos voluntários e temos os nossos trabalhos
2 - Informei-o (na penúltima mensagem) para estudar a lógica para importar os lacres, pois não vislumbrei a forma lógica de detectar os lacres
3 - A última dúvida tem a ver com os argumentos da função Mid. Pode-a estudar na ajuda do Access

OK, peço desculpas por qualquer mal estar causado a sua pessoa, pode deixar que vou estudar sim, outra coisa caso esteja demasiadamente ocupado com vosso trabalho não precisa responder ao tópico, pois como vossa pessoa mesmo disse somos todos voluntários e se estamos em um fórum é por que disponibilizamos de algum tempo para ajudar e ser ajudado.

Fico triste por me posicionar desta maneira, e sua ajuda para mim é de grande valia ao meu aprendizado, obrigado.


Coloco o tópico como resolvido mesmo sem solução.     

Estou reabrindo o topico pois falta pouco para que seja feita a VBA como quero que seja executada. então peço novamente desculpas e se Alguém poder me ajudar, principalmente o mestre Alexandre Neves, caso não esteja demasiadamente ocupado. Embarassed


O código esta funcionando assim:

No Botão click: Call ImportaXML()

No Modulo:

Sub ImportaXML()
Dim strLinha$, strNFE As String, strLACRE As String
Open "C:\Documents and Settings\Anderson\Desktop\Nova pasta\NFe50140326831727000104550010000057161125710034_20140321100151.xml" For Input As #1
Do While Not EOF(1)
Input #1, strLinha
'aqui faz a programação para extrair os valores
If InStr(strLinha, "infNFe Id=") > 0 Then
strNFE = Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)
If DCount("*", "ImportarLacre", "NFe='" & strNFE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(NFe) VALUES ('" & strNFE & "')"
End If
End If
'aqui faz a programação para extrair os valores
If InStr(strLinha, "Lacres:") > 0 Then
strLACRE = Mid(strLinha, InStr(strLinha, "Lacres:") + 7, InStr(strLinha, ".Tanque") - InStr(strLinha, "Lacres:") - 7)
If DCount("*", "ImportarLacre", "LACRE ='" & strLACRE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(LACRE) VALUES ('" & strLACRE & "')"
End If
End If
Loop

Close #1
End Sub


Porém a chave da Nfe e os lacres são importados em linhas separadas e eu gostaria que ficassem na mesma linha.

OBS: São colunas diferentes.

Como esta: Código NFe LACRE
38 NFe50140326831727000104550010000057161125710034
39 5385/5386/5387/5388/5389/5390/5391/5392/5393/5394/5395/5396


Att:

Boa tarde,
Repense no que escreve, pode dizer o que quiser, desde que não ofenda, mas evite o cinismo e respeite quem ajuda no mais que pode.
Sobre o assunto, substitua a linha
CurrentDb.Execute "INSERT INTO ImportarLacre(LACRE) VALUES ('" & strLACRE & "')"
por
CurrentDb.Execute "UPDATE ImportarLacre SET LACREVALUES='" & strLACRE & "' WHERE NFe='" & strNFE & "'"

Boa tarde Mestre Alexandre Neves, estou totalmente embaraçado, não tinha e nem tenho o interesse de lhe desrespeitar, proponho que me desculpe pelo ocorrido, sinceramente!


Quanto ao Topico...

Deu o seguinte erro:

Erro em tempo de execução "3061"

Parâmetros insuficientes. Eram esperados 1.

*** Dei uma pesquisada na ajuda porém só diz que expressões ou nomes de campo desconhecidos ou a falta de paramentos.


Att,

Falhou o copia e cola
CurrentDb.Execute "UPDATE ImportarLacre SET LACRE='" & strLACRE & "' WHERE NFe='" & strNFE & "'"

Não deu erro algum, porém, não importou também (nada aconteceu).

Vou dar uma analisa tentar entender o processo e volto com a resposta ou duvidas.

   

Veja se as variáveis estão correctas.

Boa tarde...

Realmente não percebi nada para fazer a mudança para que consiga que o código importe os lacre e a chave nfe para mesma linha,
alguém poderia me indicar o processo.


Alexandre Neves, tentei de varias maneiras o que cheguei mais perto foi esta que importou mais para linhas diferentes   

Boa noite,
Na bd que disponibilizou, corri o código e veja

Boa tarde,   

Aff, por favor, verifica o código que eu coloquei.

Peço que marque as variáveis erradas, e se possível indique algum material para estudo.

acho que vou precisar muito mais que uma leitura  

Não substiuiu o INSERT pelo UPDATE
Sub Importaxml()
Dim strLinha$, strNFE As String, strLACRE As String
Open "C:\Documents and Settings\Anderson\Desktop\Nova pasta\NFe50140326831727000104550010000057161125710034_20140321100151.xml" For Input As #1
Do While Not EOF(1)
Input #1, strLinha
'aqui faz a programação para extrair os valores
If InStr(strLinha, "infNFe Id=") > 0 Then
strNFE = Mid(strLinha, InStr(strLinha, "infNFe Id=") + 11, InStr(strLinha, "versao=") - InStr(strLinha, "infNFe Id=") - 13)
If DCount("*", "ImportarLacre", "NFe='" & strNFE & "'") = 0 Then
CurrentDb.Execute "INSERT INTO ImportarLacre(NFe) VALUES ('" & strNFE & "')"
End If
End If
'aqui faz a programação para extrair os valores
If InStr(strLinha, "Lacres:") > 0 Then
strLACRE = Mid(strLinha, InStr(strLinha, "Lacres:") + 7, InStr(strLinha, ".Tanque") - InStr(strLinha, "Lacres:") - 7)
If DCount("*", "ImportarLacre", "LACRE ='" & strLACRE & "'") = 0 Then
'CurrentDb.Execute "INSERT INTO ImportarLacre(LACRE) VALUES ('" & strLACRE & "')"
CurrentDb.Execute "UPDATE ImportarLacre SET LACRE='" & strLACRE & "' WHERE NFe='" & strNFE & "'"
End If
End If
Loop

Close #1
End Sub

Alexandre Neves, tudo resolvido porém não entendi o código, alguma leitura que poderia me indicar referente ao assunto?

Obrigado pela ajuda e pela paciência, eu sempre o admirei, não só a ti como a todos os moderadores e amigos aqui conquistados.


Att, e até a próxima    

     

Boa tarde,
Qual parte não entendeu?
Foi feito o trabalho com recurso à leitura do ficheiro, criado um ciclo de leitura por linha, procurado em cada linha a localização dos dados, através das funções instr e mid, ao ler os dados encontrados, feita a verificação se já existia na tabela e, caso negativo, acrescentava à tabela

Up!!!!


Obrigado Mestre Alexandre Neves. e vamos que vamos por que a cada dia um desafio a ser superado.