Ir ao conteúdo
  • Cadastre-se
vivicios

Ajuda de Macro para importar no Access

Recommended Posts

Boa noite, galera

Gostaria de saber como posso fazer uma macro para importar para o Access atraves de um arquivo de texto (ele esta separado por tabulação).

Tentei usar o seguinte:

Option Compare Database

Private Sub Comando0_Click()

On Error GoTo Err_Comando0_Click

DoCmd.DeleteObject acTable, "Tabela1"

DoCmd.TransferText acImportDelim, , "Tabela1", "C:\Controle de PG\LOG 1 - P.txt", False

CurrentDb.TableDefs("Tabela1").Fields("F1").Name = "Agência CO"

CurrentDb.TableDefs("Tabela1").Fields("F2").Name = "Agência do depósito"

CurrentDb.TableDefs("Tabela1").Fields("F3").Name = "Máquina"

CurrentDb.TableDefs("Tabela1").Fields("F4").Name = "Data da COMP"

CurrentDb.TableDefs("Tabela1").Fields("F5").Name = "Data do depósito"

CurrentDb.TableDefs("Tabela1").Fields("F6").Name = "Nº do LOG"

CurrentDb.TableDefs("Tabela1").Fields("F7").Name = "Código do PG"

CurrentDb.TableDefs("Tabela1").Fields("F8").Name = "Data para COMP"

CurrentDb.TableDefs("Tabela1").Fields("F9").Name = "Código de barras do PG"

CurrentDb.TableDefs("Tabela1").Fields("F10").Name = "Código do titulo 1"

CurrentDb.TableDefs("Tabela1").Fields("F11").Name = "Banco do titulo"

CurrentDb.TableDefs("Tabela1").Fields("F12").Name = "Código do titulo 2"

CurrentDb.TableDefs("Tabela1").Fields("F13").Name = "Valor"

CurrentDb.TableDefs("Tabela1").Fields("F14").Name = "Codigo interno"

Exit_Comando0_Click:

Exit Sub

Err_Comando0_Click:

MsgBox Err.Description

Resume Exit_Comando0_Click

End Sub

mas na hora de importar ele importar tudo para o campo F1, gostaria de saber o que esta errado e como posso corrigir isso.

OBS: Não manjo nada de VBA esse comando vi em um site e tentei por em pratica, estou mandado um modelo do Access e do .TXT que pretendo tirar os dados.

http://rapidshare.com/files/128028382/Arquivos.rar.html

Agradeço desde ja a ajuda.:joia:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×