Copiar "n" arquivos.xls para um Único Arquivo.xls

[Mathmatic]

Saudações,

Preciso copiar alguns arquivos.xls (todos existentes na pasta windows) para um único arquivo.xls

Detalhes:
Tenho numa determinada pasta do windows "n" arquivos.xls que são gerados diariamente, tipo assim : arquivo - 25.02.17.xls , arquivo - 26.02.17.xls , arquivo - 27.02.17.xls , etc...

cada arquivo deste contém uma única planilha, nomeada com o mesmo nome do arquivo, mas sem a extensão da data, ou seja, a planilha (Plan1) é nomeada apenas com o nome do arquivo.

veja que a cada dia é salvo um novo arquivo com a data do dia junto ao nome do mesmo (ex: arquivo - 27.02.17.xls), conforme mostrei nos exemplos acima.

Sendo assim, em 7 dias, terei 7 arquivos, em 20 dias terei 20 arquivos.

cód. VBA :

o cód. VBA construido precisa ir na Pasta do windows (diretório), abrir arquivo por arquivo (um por um até o último existente na pasta), copiar de cada arquivo apartir da célula A1 até onde houver linha com valor e também até onde houver coluna com valor, e então colar valores num Único Arquivo.xls, que poderemos chamá-lo de : OP's de Produção Mensal

o processo de transferência (copia/cola valores) para o arquivo Único pode ser em sequência para baixo, ou seja, colar sempre na linha seguinte após a última linha com valor.

e se puder no fim das transferências, Salvar o arquivo Único.

Obs: o arquivo único pode estar na mesma pasta (diretório) dos demais arquivos existentes.


pessoal, muito obrigado por vossa atenção.

[srobles]

Mathmatic,

Creio que adaptando o modelo deste tópico viewtopic.php?f=23&t=2939&p=17839&hilit ... rio#p17839, atenda sua demanda.

Creio que criando uma rotina utilizando WorkBooks.Open() para abrir as pastas e após criar o código para copiar o conteúdo de uma para outra, você consiga o que pretende.

Abs

[Teleguiado]

Boa tarde!!

Mathmatic, veja se o link abaixo não te ajuda.

http://www.rondebruin.nl/win/s3/win008.htm

T+

[Mathmatic]

tópico [Concluído]

sr. Teleguiado,

muito obrigado pela sugestão.

eu havia encontrado uma solução, e agora com o Link sugerido pelo senhor, consegui aprimorar/melhorar ainda mais meu projeto.

muito obrigado mesmo,

e também agradeço ao sr. srobles que contribuiu com sua sugestão.

aos dois senhores, meu muito obrigado.