importação de dados

boa tarde,

tenho uma duvida, preciso de importar dados de uma folha excel, ate ai tudo bem , mas um dos campos que é numerico tem 25 digitos mas só preciso de importar 5 e entre o digito 12 e 17 existe forma de fazer isto automaticamente?..... alguem me indica um caminho para explorar pois nao estou a ver como o fazer.....
obrigado a todos............

Amigo,

Isso será rotina ou apenas única vez?


Abraços,

ola boa tarde....
é uma rotina, vai servir para verificar faturas.... através do numero de uma linha optica com 23 digitos que contem o numero da fatura no meio e preciso de a extrair....
obrigado...........

boa tarde a todos,
eu estava a pensar resolver esta questão da seguinte forma
fazer a importação do numero completo
depois usar tipo a função DIREITA que existe no excel
depois a função ESQUERDA
e por fim exportar o numero obtido para o campo desejado....

mas
1º nao sei se existem no acess
2º nao as sei aplicar em VBA

portanto peço a Vossa ajuda para este ou outro caminho para resolver esta situação
obrigado a todos....

Amigão boa Tarde ....

No seu código você deve utilizar o seguinte comando:

Tebela("NomeDoCampo") = Mid(stringLinha, 15, 4)

O string linha você deve informar o inicio e a quantidade de letras a ser pega, no caso acima vou pegar da posição 15 4 caracteres.

Claro q isso deve ficar dentro de um recordset.

Abraços e boa sorte

bom dia ....
recordset? não sei como fazer... pode ajudar-me?
obrigado
abraço.....

Olá a todos,
Xikutuga, será melhor disponibilizar pequeno exemplo da sua base de dados do formulário que processa a importação e também um ficheiro excel com 1 ou dois exemplos para poder ajudar.
Ficamos aguardar
Abraço

boa tarde....
ca vai
o campo que preciso extrair dados é em pico\refdocliente entre o digito 12 e 17 da esquerda para direita....
abraço

obrigado

Olá xikutuga, estive de ferias, mas nao está esquecido.
Abraço

Olá, para efetuar o que prendende vamos utilizar a sugestão do colega Mc Feba.
Coloque a seguinte instrução depois da importação:

Código:

DoCmd.RunSQL "UPDATE pico SET pico.Refdocliente = Mid([Refdocliente],13,5)"

Repare o seguinte, vai buscar os 5 digitos a partir da posição 13, caso não tenha o resultado pretendido é só ajustar em Mid([Refdocliente],13,5)
Ficamos aguardar retorno.
Abraço

BOA TARDE,
ok funciona na perfeição..............

obrigado

Obrigado pelo retorno, o forúm agradece.

Não se esqueça de dar o tópico como resolvido, veja link abaixo:
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

Olá Francisco, estará esquecido o mencionado na mensagem anterior?



Abraço