
Tenho 300 arquivos Excel, cada um com exatamente o mesmo formato - 4 planilhas em cada arquivo com os mesmos cabeçalhos de coluna/linha. Estou tentando extrair informações de células selecionadas de cada uma dessas 4 planilhas (por exemplo, da célula D26 na planilha A, da célula D62 na planilha B, etc) de todos os 300 arquivos Excel e colocar esses dados em um novo arquivo Excel mestre que contém as informações de cada um dos 300 arquivos Excel. Isso é possível?
Responder1
Há um código muito legal postadoaquiisso deve fazer o que você deseja com alguns ajustes.
Gordon
Algumas mudanças precisarão ser feitas, o que é bem comentado. Essas linhas obtêm todos os dados da coluna A da pasta de trabalho e os copiam para a planilha mestre.
LR = Range("A" & Rows.Count).End(xlUp).Row 'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)
Em vez disso, você precisará percorrer as planilhas e definir os intervalos que deseja copiar com algo assim.
wbData.sheets(1).range("A2:A26").copiar .Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 wbData.sheets(2).range("A2:A62").copy .Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ...