• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rogi_cps

[Resolvido]Verificar a existência de uma tabela em Bd Access através do VBA

6 mensagens neste tópico

Espero que possam me ajudaar nessa.

Tenho um banco automatizado, que sempre recebe a importação de uma tabela de outro banco, para efeito de alimentação de dados.  O meu banco, gera os relatórios consultas e tudo mais, mas gostaria que em determinado ponto da importação ele verificasse se a tabela já foi importada.

Por exemplo: 

em meu banco tenho as Tabelas Jan, Fev, Mar, Abr, e no caso o usuário esqueceu que já fez a importação da tabela Abr.  Gostaria de saber um código de VBA para fazer essa verificação.

:wallbash:

Fico muito grato com a ajuda dispensada.

Germano

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

...Tenho um banco automatizado, que sempre recebe a importação de uma tabela de outro banco, para efeito de alimentação de dados.  O meu banco, gera os relatórios consultas e tudo mais, mas gostaria que em determinado ponto da importação ele verificasse se a tabela já foi importada...

:shocking:

Germano,

Preciso de um código VBA excel que importe dados de de um outro ficheiro, terias como mostrar o seu procedimento?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Preciso de umas respostas...  tenho algumas coisas do jeito que está querendo...  A o ficheiro excel já vai estar aberto???

caso não esteja a abertura vai ser manual ou o VBa pode abrir importar e fechar?  As linhas são fixas ou tem algum dado específico que possa informar para importar??

Posso tentar fazer a importação em modo silent...

Me passa algumas respostas que eu te mando uma codificação usável.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Teríamos o ficheiro "Dados" aberto e o ficheiro "Teste" seria aberto e os dados da colunaA "Dados" seriam exportados para colunaA "Teste".

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu usaria este código:

Public Sub teste2()
'planilha a ser copiada
Windows("Dados.xls").Activate
Columns("A:A").Select
Columns.Copy

'planilha que será inseridos os dados copiados
Windows("teste.xls").Activate
Columns("A:A").Select
ActiveSheet.Paste
End Sub

Espero que isso ajude.  Se não for isso que procura...  é só falar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora