[Resolvido]Importação

Boa tarde!
Amigos estou com dificuldade para efetuar algumas importações, por exemplo preciso fazer importação de alguns arquivos txt de milhares de linhas, porem em algumas colunas gostaria que no ato da importação alguns campos fossem preenchidos automaticamente, por exemplo:
Efetuo a importação com 50 linhas todas preenchida nas duas ultimas colunas preencher com as horas 23:59:59 e a outra como 00:00:01.
Quando lanço linha a linha o campo se preencher sem problemas, mas na importação não.

Alguém pode me ajudar? será que é possível fazer isso

Como está fazendo essa importação? Se abrir um Recordset e depois setar os campos com as colunas do arquivo, dará certo.

tente adaptar, este funciona para mim.

Public Function importarTXT()
Dim FFile As Integer, Strg As String, x, y, z, s As Date
FFile = FreeFile

Open "c:\teste.txt" For Input As #FFile

Do Until EOF(FFile)

Line Input #FFile, Strg

If Nz(DLast("[datahora]", "[tabela]"), 0) > 0 And Nz(DLast("[datahora]", "[tabela]"), 0) <> Time Then

CurrentDb.Execute "INSERT INTO tabela (nome, datahora) VALUES ('" & Strg & "',#" & Time & "#)"

Else
y = Format(Nz(DLast("[datahora]", "[tabela]"), 0), "hh:mm:")
x = Format(Nz(DLast("[datahora]", "[tabela]"), 0), "ss")
z = y & x + 1

CurrentDb.Execute "INSERT INTO tabela (nome, datahora) VALUES ('" & Strg & "', #" & z & "#)"

End If
Loop
Close #FFile
End Function

Amigos não entendi????

Não consegui entender nada, tem algum exemplo mais pratico?

Como é que está a fazer essa importação ?

Por código VBA, ou por Macro, ou simplesmente manualmente ?

Macro!

Pois, com Macro não vai dar não.

Diga-nos quais os campos que existem na tabela e como está formatado o seu txt, que aproveitamos o código do Miguel.

Esse código é excelente para o que deseja.

Segue o arquivo!
Não consegui trazer ele em txt, mas os dados são estes.
Obs.: Nas primeiras colunas "importação atual" o sistema traz assim em txt no formato de ponto e virgula (
Nas linhas "importação proposta" eu gostaria de importar para dentro do banco queria que os dados fossem inseridos automaticamente nas duas ultimas colunas.

O objetivo é trabalhar com as horas e montar um indicador com estes dados.

Ok;

Converta essa Macro em VBA e cole aqui o código que arranja-se uma solução pratica.

Olha o codigo!

'------------------------------------------------------------
' IMPORTA_DADOS
'
'------------------------------------------------------------
Function IMPORTA_ROTAS()
On Error GoTo IMPORTA_ROTAS_Err

DoCmd.TransferText acImportDelim, "ROTAS-CD1", "ROTAS-CD1", "C:\RECEBE\ROTAS.TXT", True, ""


IMPORTA_ROTAS_Exit:
Exit Function

IMPORTA_ROTAS_Err:
MsgBox Error$
Resume IMPORTA_ROTAS_Exit

End Function

Gilberto bom dia !

Os campos X1 e X2, têm de existir na sua tabela e têm de estar formatados como hora.

Cole este código num modulo novo e salve:

http://dl.dropbox.com/u/771097/Gilberto.txt

No evento VBA ao pressionar do seu botão, cole esta instrução, salve e teste.

Call IMPORTA_ROTAS

Nota:
Esqueça a Macro

Resolveu ?

Amigo desculpe a demora!

Deu a seguinte MSG.

Erro de Compilação
Era esperado variável ou procedimento, não modulo

E os botoes de OK e ajuda.

Para ajudar

você colocou o código do jpaulo num modulo novo e salvou ?

no evento vba ao pressionar do seu botão, você colocou Call IMPORTA_ROTAS, como o jpaulo lhe explicou ?

se fez tudo isso tem de funcionar, não vejo o porque não.

Amanhã vou enviar o banco com os dados que preciso importar.

Ficamos a aguardar.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.