[Resolvido]Buscar arquivo

Como fazer para ao invés de buscar um caminho especifico ( em azul ), buscar o caminho em uma caixa de testo do formulário (caminho_xml)?


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

Boa tarde,
Substituir texto pelo nome da caixa de texto
Open TxtCaminho For Input As #1

O que esta errado  

Nunca consigo fazer certo os códigos   

Está a utilizar o código fora do formulário. Tem de informar o caminho completo.
Vá acompanhando o material abordado, aparece quase tudo
Coloque
Open Forms("importar lacre")!Caminho_xmlimpot.Text For Input As #1

Alexandre meu amigo, esta dando o erro, poderia verificar


Obrigado

Será assim
Sub Importaxml()
Dim strLinha$, strNFE As String, strLACRE As String
Open Forms("IMPORTAR LACRE")!Caminho_xmlimpot 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 "UPDATE ImportarLacre SET LACRE='" & strLACRE & "' WHERE NFe='" & strNFE & "'"
End If
End If
Loop

Close #1
End Sub

  Corretíssimo, qual era meu erro?


Obrigado pela ajuda, ajuda? você fez o código, obrigado pelo código.

Boa tarde,
O erro era quando indicava a caixa de texto, e porque não estava dentro do formulário, não se podia indicar a propriedade Text