tabelas ligadas

ola a todos

Mais uma vez venho solicitar os vossos conhecimentos, e desde ja agradecer a vossa ajuda.
tenho o seguinte problema, tenho cerca de 150 tabelas em excel mas no formato 5.0/93 quando tento importar estas tabelas para o acess não aparecem os dados e da um erro a dizer que o ficehiro não contem dados ou é demasido grande se abrir os ficheiros com o excele depois de gravar importar ja funcinam bem a importação no entanto são 150 e a cada vez que iria actualizar estes iria ter de fazer este processo.
o que eu pretemdia era que estas tabelas fossem criadas de forma ligada pois irão ser actualizadas de tempos a tempos mas terão sempre o mesmo nome, porque são exportadas de outro programa.
alem disso pretendia criar uma forma de importar todas as tabelas de uma so vez para não ter de fazer 150 vezes o mesmo processo, se alguem poder ajudar agradeço.
As tabelas tem todas os mesmos campos, pensei se seria possivel via macro abrir todas e gravar noutro formato reconhecido pelo access, sendo que depois ja ficariam actualizadas automaticamente porque ficariam como tabelas ligadas.

Bom dia jrm,

No access você pode criar Procedimentos de importação para suas planilhas de excel e executá-las com uma macro do access.

Sobre o excel, é possível você transferir essas planilhas para uma versão mais recente?

Boa tarde Lenadro, desde ja obrigado pela sua colaboração e ajuda, em excel não consigo converter para um formato mais recente a não ser que abra todas as tabelas uma a uma e as guarade noutro formato.
pensei que poderia haver uma forma de ciopiar o ocnteudo dos ficheiros de excel sem os abrir todos um a um para as varias tabelas ligadas, sera que é possivel, pode ajudar?
desde ja obrigado

Todas as planilhas são iguais?
Estão todas numa mesma pasta?
Pode postar uma? Se não for comprometer algum sigilo é claro.

Ola Leandro, obrigado pela sua ajuda, em anexo envio um dos ficheiros, se voce o abrir com o excel ele vai pedir para guardar quando fecha e ai depois ja da para importar , mas se tentar importar sem abrir verá que da um erro dizendo que o ficheiro não contem dados ou é demasiado grande, se for necessario depois envio novamnete para testar de novo.As planilhas são todas iguaasi e estão todas na mesma pasta.

Poste o procedimento que utiliza para importar o xls... e especifique todos os passos pertinentes.

Cumprimentos.

Boa Noite, Obrigado Piloto pela sua sempre boa vontade em ajudar os outros, masi uma vez fico grato, o que eu fiz foi tentar fazer a importação pelo assistente de importação mas da sempre o erro que eu referi acima, como ja deve ter percebido eu não sou muito entendido em VBA, eplo que sempre que posso uso os processos automaticos, mas se for possivel importar via macro ou codigo melhor aida, ja agora se poder ajudar agradeço, vou anexar novamente a BD e tambem um dois ou ters ficheiros de excel para testar.

O que eu pretendo é arranjar uma forma de fazer uma analise das tabelas que estão nos ficheiros de excel, estas tabelas são exportadas de um outro programa de produção e saiem sempre neste formato.
as tabelas estarão sempre na mesma pasta, e o que eu pretendo é que quando as exporto e uma vez que ficariam como tabelas ligadas ficariam sempre actualizadas quandom abrisse a bd.
pretendo fazer analise da tarefa executada mais rentavel da mesnos rentavel do funcioanario mais rentavem do menos rentavel e um resumo em que constaria o cadigo e nome da tarefa e o valor da tabela visa e todos os valores das restantes tabelas calculando uma margem para cada uma delas.
e com este metodo poderiafazer esta analise a cada maneto bastando exportar as tabelas.

Boas Jrm, não sou nada bom em excell... mas poste o bd com alguns fixeiro para que não somente eu como demais colegas possam viabilizar uma solução.

Cumprimento.

bom dia

Estoutentando ha dois dias adicionar o BD e alguns ficheiros mas da sempre um erro "O arquivo adicionado não é valido: nome do arquivo incorreto." ja alterei o nome varias vezes e não da o tamanho tambem so são 2.85mb. numa das respostas atras ja tinha colocado um dos ficheiros e a bd é a mesma do topico formularios "[Resolvido]campo de formulario como pesquisa em uma tabela". de qualquer maneira vou tentar não desisto e vou tentando ate conseguir.

Envie-me no e-mail que posto aqui.

Harysohn@hotmail.com

Saudações

Ja enviei no seu email, pode verificar se recebeu direitinho SFF.

O BD do colega

https://dl.dropbox.com/u/26441349/Brigadas%20e%20Tabelas.rar


Cumprimentos.

Obrigado pela sua ajuda, e então o que acha , acha que é possivel encontrar uma soluçãopara este problema?

Boa noite Piloto e Leandro
Parece-me estar dificil resolver este problema, aindei pesquisando pela net e não encontrei forma de fazer isto, ate tentei usar conversores, mas os que encontrei so convertem para excel 5.0/95.
Então tensei , sera que no access seria possivel criar um codigo que copiasse o ficheiro de um para outro sem abrir o ficehrio inicial, alterando assim o formato do ficheiro? acham esta ideia muito descabida? assim tambem poderiamos criar um codigo que adaptado converteria um ficehiro de excel para word e vice versa. Podem ajudar-me e analisar esta ideia se é viavel?
Obrigado mais uma vez

Boas Jrm.. como disse excell não é o meu forte, aguarde para que algum usuario que tenha conhecimento nesta área possa ver o post e o auxiliar... Mesmo assim amanha darei uma vista de olhos no teu BD.

Cumprimentos.

Boa noite

Era importante conseguir fazer esta operação, mas tentei arranjar solução em alguns foruns de excel e não consegui, a unica resposta concreta que obtive foi que so era possivel abrindo os ficheiros um a um. mas tambem andei vendo alguns livros de access e dizem que é possivel importar de qualquer formato de excel, sera que conseguimos fazer algum codigo para abrir um dos ficehiros e depoistentamosgrava-lo noutro formato e importar de seguida. podem ajudar?

Boas... enviei MP a um colega e pedi que visitasse este tópico, ele deve conseguir algo pra ti.

Aguardemos.

Saudações.

Pelos testes que fiz aqui, o problema está mesmo nos ficheiros Excel, desta forma jamais o Access irá vincular ou Importar.

Tem de ver o que está a contecer, na hora da criação desses livros.

Obrigado J Paulo pela sua contribuição, mas o meu problema é exactamente esse, é que os ficheiros são exportados de outro programa e não da para gravar noutro formato.
ja tentei encontrar algum conversor mas nada, ja tentei em excel fazer uma macro para abrir um ficehrio e não funciona. Parece que a unica solução é mesmo abrir um a um e gravar novamente!!!
se mais alguem poder ou quiser tentar ajudar ficaria agradecido.
Sera que não ha forma de criar um codigo que copie o conteudo do ficheiro para o access ou par outro formato qualquer mesmo sem abrir o ficheiro?

Boa noite, desculpe o sumisso, estava garimpando, achei isso e talvez possa te ajudar no excel:

Pra que serve?

Ele abre arquivos que que começam com "Quest" na Pasta "Teste" no disco "C" e ajusta as colunas, mas esse ajuste podemos ignorar. Se ele apenas abrir e salvar o arquivo, creio que o access vai aceitar o vínculo aí é só trabalhar do seu jeito.
Você terá que definir o nome das pastas, o início do nome, entende? e a pasta que eles estão.
Se tiver 1000 pastas de excel ele o fará.
Serão necessários ajustes.

Vamos tentar?

Sub AbrirArquivosemDiretório()
'****************************************************************

'MACRO PARA ABERTURA DE CORREÇÃO DE TODOS OS ARQUIVOS DE UM

'DIRETÓRIO QUE ATENDAM A UMA CONDIÇÃO DE NOME

'Criada por; Adilson Soledade

'Criada em: 16/05/2008

'****************************************************************



Dim Pasta As String, Arquivo As String



Pasta = "C:\TESTE\"

Chave = "Quest"

'O comando Dir exibe o nome dos arquivo do diretório Pasta

Arquivo = Dir(Pasta & "*.xl?", vbNormal)
'Comando para abrir o arquivo com base do nome da Pasta + Arquivo

Workbooks.Open (Pasta & Arquivo)
'Testa se o nome do arquivo se inicia com Chave

If Left(Arquivo, Len(Chave)) = Chave Then

'Acessa Worksheets(1) e auto ajusta as colunas A e B

'ActiveWorkbook.Worksheets(1).Columns("A:B").EntireColumn.AutoFit

'Fecha o arquivo modificado e salva as alterações

ActiveWorkbook.Close (True)

'Loop para abertura dos demais arquivos do diretório com os mesmos comandos acima
Do
Arquivo = Dir()
If Arquivo <> "" Then
Workbooks.Open (Pasta & Arquivo)
ActiveWorkbook.Worksheets(1).Columns("A:B").EntireColumn.AutoFit
ActiveWorkbook.Close (True)
End If

Loop While Arquivo <> ""



End If



End Sub

O problema para mim é outro.

Quando tento abrir os seus ficherios Excel, ele informa que tem dados ilegíveis, ae não tem como de abrir, importar ou vincular.

Boa noite

Apenas para animar um pouco a resolução do problema, ha uma frase que eu penso sempre que tenho dificuldade me conseguir algo:
"desistir é para os fracos"
mas ja vi que por aqui ha mais pessoas como eu, voces não desistem, obrigado
havemos de encontrar uma solução.
em anexo envio um ficheiro com o erro que da quando executo o codigo do leandro depois de ajustado.
parece-me que o problema esta em o codigo não conseguir apanhar o nome dos ficheiros, pois a variavel arquivo fi«ca vazia, mas voces percebem amis disto que eu . vamos continuar a tentar. e vamos conseguir encontarr uma forma. è verdade o que o J paulo Diz, mas não ha forma de fazer com que abra o ficheiro e depois clique no ok atraves de uma macro?

Boa noite meu caro, tô aqui no plantão, rsrs.

Olha só, lá no código tem os comentários do mesmo, veja que você tem que informa para a
variável o início dos nomes das pastas de trabalho, entendeu?

No seu caso altere para Chave = "CNTF" se as pastas começarem todas com essas letras.

Bom dia Leandro

Como pode ver no print anexo os ficheiros começam quase todos com "tabela_se_cntf", razão pela qual eu coloquei a chave como "tabela", mas da o erro que eu lhe mostrei no print aneteriior, e pelo que me parece ele não consegue ler os nomes dos ficheiros ou não os encontra.

Boa tarde a todos

Podem ajudar-me para perceber melhor o que faz cada um dos codigos que estão no ficheiro que anexo, a mim parace-me que este cdigo serve para buscar ficheiros numa localização(servidor) e copiar o conteudo dos mesmo para um ficheiro no pc. caso espeja errado agradecia que me ajudassem a perceber o significado de cada linha no codigo, para aprender mais um pouco de VBA. a ideia era usar este codigo para copiar o conteudo de cada ficeheiro de uma pasta para outro novo ficehrio noutra pasta diferente gauardando este ultimo no formato que nos queremos, sera possive?

A como anda este tópico companheiros?

Saudações.

Piloto e jrm, estou aguardando resposta de um companheiro "Exceler" sobre o assunto.

A princípio pedi a ele um código para colocar todas planilhas num txt só, se forem adicionas a um xls, ficará muito grande.

Em anexo a cópia do e-mail que eu enviei.

Abraço

Boas Leandro, ja estava a pensar esquecer esta hipotese e ter de fazer sempre tudo manualmente , mas ainda bem que voltamos ao assunto, pois parece-me que ha uma pequena falha na interpretação do que eu pretendo,
O meu problema é não conseguir importar os ficheiros para access visto que se voce tentar abrir da sempre os erros do print anexo que não tem como desactivar o alerta no excel, e por outro lado não permite importar para access.
supondo que todos os ficheiros estavam num excel normal, eu iria criar tabelas ligadas tantas quantos os ficheiros, para que cada vez que actulaizasse o excel elas ficassem actualizadas em access.
Não ha necessidade de junta-las todas pois cada um delas contem cerca de 7000 linhas X 150 tabelas = 1050000 linhas, isso iria criar uma tabela muito grande.

bom dia

esta esta de resolução dificil, ainda não consegui fazer com que o access consigo importar este tipode ficheiros sem ter de os gravar noutro formato de excel.

Continuo a contar com a vossa ajuda, um dia vamos la chegar!!!!

Obrigado a todos.