2024 23:11

VKNG · 2024-03-21T16:36:21-03:00

Saudações! Eu uso um programa para elaborar orçamento de obras, que gera vários relatórios em excel. Cada planilha de excel tem uma aba. Eu quero juntar todas essas planilhas em um arquivo só, de modo que cada uma vire uma aba no arquivo novo. Eu sei que tem como fazer isso copiando/movendo cada uma das abas, mas é trabalhoso. Existe alguma maneira mais simples?

Tecnologia

VKNG
em 21/03/24 16:36

comentada em 21/03/2024 23:11

ver melhores comentários

@prmd

tópicos e FAQs relacionados

Comentários

Último comentário 1º comentário do autor Só moderadores Só os meus Só quem eu sigo Ordenar por gostei

Charlito 3º

em 21/03/2024 16:40

Os nomes das planilhas geradas possuem um padrão fixo?

Pode ter um jeito de macrear isso.

Ajuda aí pow!

Ajuda Eu Pow! Juntar várias planilhas em uma só no Excel - #1 de 6

Nowitzki 180º
em 21/03/2024 17:07

joga tudo dentro de uma pasta especifica

ai voce cria um arquivo em excel fora desta pasta,
ai nesse arquivo você usa para puxar os dados direto da pasta

Ajuda aí pow!

Ajuda Eu Pow! Juntar várias planilhas em uma só no Excel - #2 de 6

akitaspot

em 21/03/2024 17:11

Salva em CSV, usa a biblioteca pandas do python. Seja feliz.

Ajuda aí pow!

Ajuda Eu Pow! Juntar várias planilhas em uma só no Excel - #3 de 6

prmd 180º

em 21/03/2024 17:53

Usando power querry é moleza (Dados/Obter dados/De arquivo).

Aprenda o básico do power querry, é uma ferramenta muito útil. Recomendo vídeos da hashtag treinamentos no youtube.

p.s. trata-se de um recurso nativo do excel

Ajuda aí pow!

Ajuda Eu Pow! Juntar várias planilhas em uma só no Excel - #4 de 6

adrianocoelho 180º

em 21/03/2024 19:58

Se tudo falhar use o código abaixo. Abra o VBA no excel (alt + F11), clique em "inserir / módulo", cole o código e altere apenas a variável "FolderPath" que é a pasta em que estão os arquivos e mande rodar (F5 ou clicar no botão de play). Se for usar com frequência salve um arquivo ".xlsm" com esse código para rodar a partir dele.

Sub MergeExcelFiles()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet

' Caminho da pasta em que estão os arquivos (deve terminar em "\")
FolderPath = "C:\Caminho\"

If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"

Dim MergedWorkbook As Workbook
Set MergedWorkbook = Workbooks.Add
Dim DataWorkbook As Workbook

Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
Set DataWorkbook = Workbooks.Open(FolderPath & Filename)

For Each Sheet In DataWorkbook.Sheets
Sheet.Copy After:=MergedWorkbook.Sheets(MergedWorkbook.Sheets.Count)
MergedWorkbook.Sheets(MergedWorkbook.Sheets.Count).Name = Replace(Filename, ".xlsx", "")
Next Sheet

DataWorkbook.Close False
Filename = Dir()
Loop

End Sub