Ajuda Eu Pow! Juntar várias planilhas em uma só no Excel
comentada em 21/03/2024 23:11

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

Pode ter um jeito de macrear isso.

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

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

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

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

caraca, achei que tinha um comando mais fácil e direto hahaha
vou tentar as dicas que me deram, obrigado!