Notifications

Clear all

Importação de WorkBook para outra WorkBook

2024 - VBA & Macros

Post Recente por leandroxtr 8 anos atrás

8 Posts

4 Usuários

0 Reactions

1,297 Visualizações

RSS

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Boa tarde pessoal,
Espero que esteja tudo bem com todos!
Pois bem, estou com uma demanda aqui que realmente não domino e preciso muito da ajuda de vocês!
Tenho uma planilha que denominei “Matriz”, a qual utilizo para formatar e deixar as informações de um determinado banco de dados nos moldes que preciso para trabalhar.
Pois bem, a questão é que esse banco de dados é enorme e dentro dele existem mais de 200 planilhas(folhas/Sheets). Para mim não tem problema algum em selecionar todas as planilhas(Sheets) e move-las manualmente para dentro da pasta de trabalho(Workbook) da “Matriz”. O problema é quando outro funcionário que não conhece a ferramenta precisa fazer isso. Ele simplesmente não consegue e acaba atrapalhando o código da Matriz.
Então, o que eu gostaria de saber é se existe algum código para que eu pudesse, através de um CommandButton, fazer a importação desse banco de dados para dentro da minha Matriz. Mas não gostaria que todas as planilhas importassem em apenas 1 Sheet da pasta de trabalho Matriz, mas que importasse todas as 200 plans para a sua respectiva.
Espero que tenham entendido.

Muito Obrigado pela força!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 31/01/2017 11:06 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde Leandro,

Não entendi bem o que você deseja. Voce quer copiar as informações de varios Arquivos de excel para o Arquivo Matrix?
Nesse tópico coloquei uma macro que abre varios arquivos do excel de uma pasta e copia todas as informações para um unico arquivo.
viewtopic.php?p=117168#p117168

Veja se o que você precisa é algo similar e de retorno.

Att,

Postado : 31/01/2017 12:32 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Quero que a planilha Banco de Dados seja importada, da forma que está, para a planilha Matriz!
Veja anexo como quero que fique!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 31/01/2017 1:06 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Veja se da pra entender.

Obrigado pela disposição!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 31/01/2017 1:07 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Boa tarde, Leandro

Em linhas gerais, havendo um botão "Importar" um saída poderia ser:

Sub Importar_Click()
  Dim wbMatriz As Workbook, wbBD As Workbook
  Dim wssBD As Sheets
    Set wbMatriz = ThisWorkbook
    Set wbBD = Workbooks("Banco_de_Dados.xlsx")
    Set wssBD = wbBD.Sheets
  wssBD.Copy After:=wbMatriz.Sheets(wbMatriz.Sheets.Count)
End Sub

Considerações:
-Considerei que o código esteja rodando na pasta Matriz;
-Considerei que ambos os arquivos Matriz/Banco de Dados já estejam abertos na memória. Se não estiverem, daria erro (não tratado aqui) e teria que alterar passando a utilizar o método Workbooks.Open("Caminho...blá, blá, blá") na instrução Set wbBD...
-Considerei que não existem ainda planilhas em Matriz com o mesmo nome das que estão sendo importadas. Se existirem, o Excel copiará e usará um índice (2), (3)... para as novas cópias. Esse tratamento vc pode fazer depois se desejar.
-Vc tem um conflito de nomes de Intervalo que teria que resolver também, pois o Excel vai chiar. Há um intervalo de nome "Inervalo_Verde" tanto na Matriz como no BD, embora não seja tão crítico pois o Excel na hora exibe a opção de renomear o intervalo, se desejar.

Postado : 31/01/2017 2:26 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Meu caro, achei excelente o método.
Mas realmente um botão que explora as pastas do computador para que eu selecione o banco de dados, é indispensável no meu caso, pois a intenção é eliminar qualquer tipo de erro que pode ser cometido pelos funcionários que desconhecem a ferramenta.

Valeu demais!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 31/01/2017 3:01 pm