[Resolvido]ler arquivo em txt (extrato da caixa)

Bom dia sou novo aqui... e estou terminando o curso de access 2010.
estou usando esta versão.
estou tentando fazer um banco de dados pra ler os arquivos em txt baixados do site da caixa econômica federal...
> Conteúdo do arquivo:
"Conta";"Data_Mov";"Nr_Doc";"Historico";"Valor";"Deb_Cred"
"1607013000123456";"20110301";"000000";"REM BASICA";"0.00";"C"
"1607013000123456";"20110301";"000000";"CRED JUROS";"0.04";"C"
"1607013000123456";"20110304";"041545";"DEP D LOT";"444.61";"C"
obs. os dados ficam tudo em uma linha somente
> o arquivo está salvo assim: extrato_março.txt
obs. os números da conta e valores foram modificados por questão de segurança.
> na minha tabela tem os campos:
Conta
Data_Mov
Nr_Doc
Historico
Valor
Deb_Cred
> todos os campos estão em formato de texto.
algum de vocês tem um código para importar do txt para a minha tabela?
obs. tentei com uma macro mas dá erro. não importa os dados corretamente.

Você pode importar este txt usando o assitente de importação do Access.

Procure aqui no Forum por especificação de importação

Sds,

Obrigado pela resposta rápida, mas eu preciso de um código para automatizar essa importação.

Dê uma olhada aqui: Importando Arquivos Texto.

Grande Osmar, é um belo exemplo. Prabens!

Obrigado a todos, vou estudar os códigos tentar implantar, de volto para dar o resultado.

Me desculpem, mas não consegui!

Private Sub cmd_Importar_Click()
On Error GoTo trataerro

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim Linha As String

If Len(txtNomeArq & vbNullString) = 0 Then
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
txtNomeArq.SetFocus
Exit Sub
End If
If Len(Dir(Me.txtNomeArq)) = 0 Then
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.txtNomeArq.SetFocus
Exit Sub
End If
Open Me.txtNomeArq For Input As #1
Set db = CurrentDb
Set rs = db.OpenRecordset("tblMovimento")
While Not EOF(1)
Line Input #1, Linha
If Left$(Linha, 1) = "1" Then
With rs
.AddNew
![Conta] = Mid$(Linha, 1, 16)
![Data_Mov] = Mid$(Linha, 1, 8 )
![Nr_Doc] = Mid$(Linha, 1, 6)
![Historico] = Mid$(Linha, 1, 10)
![Valor] = Mid$(Linha, 1, 9)
![Deb_Cred] = Mid$(Linha, 1, 1)
.Update
End With
Else
With rs
.AddNew
![Conta] = Mid$(Linha, 1, 16)
![Data_Mov] = Mid$(Linha, 1, 8 )
![Nr_Doc] = Mid$(Linha, 1, 6)
![Historico] = Mid$(Linha, 1, 10)
![Valor] = Mid$(Linha, 1, 9)
![Deb_Cred] = Mid$(Linha, 1, 1)
.Update
End With
End If
Wend
saida:
Close
Set rs = Nothing
Set db = Nothing
Exit Sub
trataerro:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If desev Then
Stop
Resume
#End If
Resume saida

End Sub

O resultado foi:


By francisco_sousa at 2011-03-16

obrigado pela atenção.

Observei que tem um quadradinho (caractere da tecla enter)no final de cada registro no arquivo de texto.
eu estou ficando maluco com esse código, porém estou precisando muito dele.

Depois da linha Line Input #1, Linha
insira mais uma linha:
Linha=Left(Linha, 1, Len(Linha) - 1)
Vai copiar na variável Linha todos os caracteres menos o último.

Osmar, o que pode estar acontecendo, ele não importa todos os registros do arquivo txt somente o cabeçalho como na figur a a cima? como eu faço pra resolver?

Não consigo fazer a importação de todos os dados somente o cabeçalho como indica a imagem acima ... como será que resolvo isso???

Não testei aqui, troquei o laço

não custa tentar:

Código:


Private Sub cmd_Importar_Click()
On Error GoTo trataerro

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim Linha As String

If Len(txtNomeArq & vbNullString) = 0 Then
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
txtNomeArq.SetFocus
Exit Sub
End If
If Len(Dir(Me.txtNomeArq)) = 0 Then
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.txtNomeArq.SetFocus
Exit Sub
End If
Open Me.txtNomeArq For Input As #1
Set db = CurrentDb
Set rs = db.OpenRecordset("tblMovimento")
Do While Not EOF(1)
Line Input #1, Linha
If Left$(Linha, 1) = "1" Then
With rs
.AddNew
![Conta] = Mid$(Linha, 1, 16)
![Data_Mov] = Mid$(Linha, 1, 8)
![Nr_Doc] = Mid$(Linha, 1, 6)
![Historico] = Mid$(Linha, 1, 10)
![Valor] = Mid$(Linha, 1, 9)
![Deb_Cred] = Mid$(Linha, 1, 1)
.Update
End With
Else
With rs
.AddNew
![Conta] = Mid$(Linha, 1, 16)
![Data_Mov] = Mid$(Linha, 1, 8)
![Nr_Doc] = Mid$(Linha, 1, 6)
![Historico] = Mid$(Linha, 1, 10)
![Valor] = Mid$(Linha, 1, 9)
![Deb_Cred] = Mid$(Linha, 1, 1)
.Update
End With
End If
Loop
saida:
Close
Set rs = Nothing
Set db = Nothing
Exit Sub
trataerro:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If desev Then
Stop
Resume
#End If
Resume saida
End sub


Sds,