[Resolvido]Importar aquivo TXT com no access

Ola, talvez esse tópico até exista mas eu não consegui encontrar caso ele ja exista me desculpa!

bem em primeiro lugar eu sou iniciante!!!!

tenho uma planilha em access que cria um arquivo em txt agora preciso que meu banco em access faça a importação desse aquivo, alguém consegue postar um exemplo do como faço isso no VBA.

agradeço a atenção.

Olá, seja bem vindo ao forum.

Nada melhor do que tentar entender os exemplos e adaptá-los para aprender como tudo funciona. Veja se consegue entender algo desses tópicos:

http://www.google.com/search?hl=pt&q=importar+AND+txt+site%3Amaximoaccess.forumeiros.com&btnG=Pesquisar

Qualquer dúvida, volte a se manifestar.

Isso ae;

Num desses links tem este exemplo, estude-o.

http://dl.dropbox.com/u/771097/ImportarTXT.rar

Jpaulo!

o exemplo que vc disponibilizou eh quase o que eu quero porem ele importa a linha inteira em um unico campo, o que eu preciso entender seperar em seus determinados campos!

Olá Dougmitnick, tente usar a função MID

Exemplo:

Observação: Altere principalmente o que estiver em vermelho, o que estiver em Violeta é a quantidade de casas que vc deverá contar no seu arquivo, exemplo: No arquivo contém a palavra "pararelepipedo", e esta palavra vc colocará na sua importação, então vc conta de onde ela começa até onde ela termina, ficaria 1,14 (pois ela começa na primeira posição e termina na 14ª)

1º Declare as variáveis onde serão salvas as informações não se esqueça do Database e Recordset
Dim teste, test, abc
Dim cnn As Database, rs As Recordset

'Retira a informação do txt e armazena na variavel
teste = Mid(nome da variavel que contém o arquivo, 1, 5)
test = Mid(nome da variavel que contém o arquivo, 8, 4)
abc = Mid(nome da variavel que contém o arquivo, 15, 5)


'insere as informações na tabela
rs.AddNew
rs.Fields("Nome do campo na tabela") = teste
rs.Fields("Nome do campo na tabela") = test
rs.Fields("Nome do campo na tabela") = abc

rs.Update


Caso tenha ficado alguma dúvida...é só falar!
Espero tê-lo ajudado!

Como não houve retorno, estou colocando o tópico como "Resolvido". Qualquer coisa, retorne.