[Resolvido]Importar txt

Bom dia amigos,

fiz uma busca e a muita informação sobre mais não consigo adaptar...

Eu gostaria de importar o txt que esta em anexo para a tabela do bd em anexo, via botão do formulário, só que gostaria que importasse somente os dados que estão entre os *, este asterisco é somente um inicio e pause pode ser qualquer outra tabulação e ao fim excluir o txt.

Desde já agradeço,

Att,

Up amigos por favor, não consigo adaptar dos exmplos.

Bom dia,

O arquivo terá sempre 3 linhas?
Os dados a serem aproveitados estarão sempre na segunda linha, e sempre na mesma posição do arquivo do exemplo?

Humm, sim será neste modelo.

Código:

Dim strImport As String

Open "C:\SuaPasta\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"

Kill "C:\SuaPasta\Expirasenha.txt"
Close #1

Cláudio Más, o negocio começou a caminhar eu tive que retirar a linha em vermelho, pois estava dando um alerta "Caminho já aberto".

Bem continuando... como faço para excluir o txt???? outra cada Line Input #1, strImport, significa uma linha a pular?


Dim strImport As String

Open "C:\SuaPasta\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"

Kill "C:\SuaPasta\Expirasenha.txt"
Close #1



Att,

A linha em vermelho exclui o txt, só que deve ficar depois da linha Close #1.

Line Input #1, strImport lê uma linha do arquivo txt dentro da variável strImport.
Como a primeira linha deve ser desprezada, uso o comando duas vezes, para utilizar strImport da segunda leitura, ou seja, a segunda linha, que contém o dado a ser aproveitado.

Humm, ficou muito bom, só mais uma coisa, caso eu queira buscar o arquivo em outro lugar e com outro nome tem como? tipo abrir uma janela de busca e importação.

UP...

Veja esse tópico.

Substitua
Set fso = Application.FileDialog(4)

por
Set fso = Application.FileDialog(msoFileDialogFilePicker)

Bom dia Cláudio Más, o código ficou assim: Mas da erro mostra a linha amarela (anexo)

Private Sub Importardata_Click()
Dim fso As Object

Set fso = Application.FileDialog(msoFileDialogFilePicker)
fso.AllowMultiSelect = False

If fso.Show Then
DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, fso.SelectedItems(1) & "\Contato.pdf", False
End If

If IsNull(Me.Dataexpira) Or Me.Dataexpira = "" Then
MsgBox "Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar"
Dim strImport As String

Open "C:\Users\Anderson\Desktop\teste\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill "C:\Users\Anderson\Desktop\teste\Expirasenha.txt"
MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
Exit Sub
End If

Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("A data de validade do sistema expirou... " & Chr(13) & Chr(13) & "Caso já tenha o novo arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh

Open "C:\Users\Anderson\Desktop\teste\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill "C:\Users\Anderson\Desktop\teste\Expirasenha.txt"
MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
End Sub

Verifique se tem essas referências marcadas:

Cláudio Más boa tarde,

A Referência microsoft office 14.0 object Library para mim é microsoft office 12.0 object Library e quando tento habilitar a referência microsoft DAO object Library da este erro (anexo).


como proceder?

Boa tarde, poderia enviar o print das referências que estão marcadas?

Segue referências...


Fico no aguardo.

Att,

Desmarque a última, antes de tentar marcar Microsoft DAO Object Library.

Abriuuuuu, bacana, muito legal....


Agora da erro na linha em azul: If fso.Show Then
DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, fso.SelectedItems(1) & "\Contato.pdf", False
End If


Ela aponta para um contato... será que devo criar um campo Caminho para meu caso?

Copiar e colar é um problema...

Essa linha não tem nada a ver com o seu código, pode ser excluída.
Melhor assim:

Código:

If Not fso.Show Then
    Exit Sub
End If

Quase estamos quase lá.

Deu erro na linha em azul: Erro em tempo de execução "53" Arquivo não localizado.

Acho que temos que por referência para o Open??? como seria?

Private Sub Importardata_Click()
Dim fso As Object

Set fso = Application.FileDialog(msoFileDialogFilePicker)
fso.AllowMultiSelect = False
If Not fso.Show Then
Exit Sub
End If

If IsNull(Me.Dataexpira) Or Me.Dataexpira = "" Then
MsgBox "Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar"
Dim strImport As String

Open "C:\Users\Anderson\Desktop\teste\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill "C:\Users\Anderson\Desktop\teste\Expirasenha.txt"
MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
Exit Sub
End If

Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("A data de validade do sistema expirou... " & Chr(13) & Chr(13) & "Caso já tenha o novo arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh

Open "C:\Users\Anderson\Desktop\teste\Expirasenha.txt" For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill "C:\Users\Anderson\Desktop\teste\Expirasenha.txt"
MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
End Sub

Substitua a linha em azul por:

Open fso.SelectedItems(1) For Input As #1

Cláudio Más bom dia,

Esta parte funfou blz, só que agora não esta excluindo o arquivo txt.

Att,

Substitua:
Kill "C:\Users\Anderson\Desktop\teste\Expirasenha.txt"

por:
Kill fso.SelectedItems(1)

Ficou bom a parte do SIM, agora deu uma ocorrência quando Cliko em Não ele não executa a importação (até ai blz) só que da a mensagem de importação: MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador ".

Teria como colocar uma msgbox, para quando clickar em Nâo????

Substitua:

MsgBox "Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar"


por:
If MsgBox("Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em OK " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar") = vbNo Then MsgBox "Mensagem do Não": Exit Sub

Claudio Más,coloquei uma msgbox em uma parte do código (em verde) e não esta dando certo da tipos incompatíveis.

Qual o erro?

Private Sub Importardata_Click()
Dim fso As Object

Set fso = Application.FileDialog(msoFileDialogFilePicker)
fso.AllowMultiSelect = False
If Not fso.Show Then
Exit Sub
End If

If IsNull(Me.Dataexpira) Or Me.Dataexpira = "" Then
If MsgBox("Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em SIM" & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder click em NÃO, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar") = vbNo Then MsgBox "Você optou em não atualizar as configurações!!!" & Chr(13) & Chr(13) & "Entre em contato com o Administrador do sistema ": Exit Sub


Dim strImport As String

Open fso.SelectedItems(1) For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill fso.SelectedItems(1)

MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
Exit Sub
End If

Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("A data de validade do sistema expirou... " & Chr(13) & Chr(13) & "Caso já tenha o novo arquivo de configuração click em SIM " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder click em NÂO, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar")

Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
MsgBox "Você optou em não atualizar as configurações!!!" & Chr(13) & Chr(13) & "Entre em contato com o Administrador do sistema ", "Atualizar"
End Select
Me.Refresh

Open fso.SelectedItems(1) For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill fso.SelectedItems(1)

MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
End Sub

MsgBox "Você optou em não atualizar as configurações!!!" & Chr(13) & Chr(13) & "Entre em contato com o Administrador do sistema ", vbCritical, "Atualizar"

Claudio Más, obrigado pela atenção dispensa a minha pessoa. o código ficou perfeito, e só para me ajudar a entender, é claro se não for te atrapalhar, poderia comentar o código passo a passo.

Já esta resolvido mais um comentário seria muito bom, rsrsrs, muito, muito obrigado mesmo.

o código ficou assim:

Private Sub Importardata_Click()
Dim fso As Object

Set fso = Application.FileDialog(msoFileDialogFilePicker)
fso.AllowMultiSelect = False
If Not fso.Show Then
Exit Sub
End If

If IsNull(Me.Dataexpira) Or Me.Dataexpira = "" Then
If MsgBox("Validador de sistema... " & Chr(13) & Chr(13) & "Esta é a primeira validação do sistema" & Chr(13) & Chr(13) & "Caso já tenha o arquivo de configuração click em SIM" & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder click em NÃO, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar") = vbNo Then MsgBox "Você optou em não atualizar as configurações!!!" & Chr(13) & Chr(13) & "Entre em contato com o Administrador do sistema ": Exit Sub


Dim strImport As String

Open fso.SelectedItems(1) For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill fso.SelectedItems(1)

MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
Exit Sub
End If

Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("A data de validade do sistema expirou... " & Chr(13) & Chr(13) & "Caso já tenha o novo arquivo de configuração click em SIM " & Chr(13) & Chr(13) & "Caso não o tenha e ou não saiba como proceder click em NÂO, entre em contato com o Administrador do sistema!!!", vbYesNo + vbQuestion, "Atualizar")

Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
MsgBox "Você optou em não atualizar as configurações!!!" & Chr(13) & Chr(13) & "Entre em contato com o Administrador do sistema ", vbCritical, "Atualizar": Exit Sub
End Select
Me.Refresh

Open fso.SelectedItems(1) For Input As #1

Line Input #1, strImport
Line Input #1, strImport

CurrentDb.Execute "INSERT INTO Dataexpira ( Dataexpira ) SELECT #" & Mid$(strImport, 42, 2) & "/" & Mid$(strImport, 40, 2) & "/" & Mid$(strImport, 44, 4) & "# AS Dataexpira"
Close #1
Kill fso.SelectedItems(1)

MsgBox " Arquivo Importado com sucesso..." & Chr(13) & Chr(13) & "Feche o sistema para concluir a operação.", A_DELETE_V2, "Aviso do Administrador "
End Sub