Sou iniciante no Visual Basic. Eu posso usar o Excel 2010 ou o Excel 2013 para esta tarefa.

Eu tenho dezenas de pastas de trabalho com dados na primeira planilha de cada uma. Por exemplo, One.xlsx, Two.xlsx, Three.xlsx, Four.xlsx contêm informações em sua respectiva Planilha1.

Preciso que as informações na Planilha1 de cada pasta de trabalho sejam combinadas em uma única pasta de trabalho com folhas nomeadas a partir do nome do arquivo da pasta de trabalho original. Assim, por exemplo, combinado.xlsx teria quatro folhas denominadas Uma, Duas, Três, Quatro. Em todos os casos, todas as informações nas planilhas subjacentes devem ser copiadas e combinadas na nova pasta de trabalho, como mostrado abaixo.

O formato que eu preciso

Encontrei este Macro / suplemento on-line que me aproxima do que eu preciso usando os arquivos abertos e a opção de adicionar.

http://www.excelbee.com/merge-excel-sheets-2010-2007-2013#close

O suplemento Open Files permite que eu agregue as várias planilhas da pasta de trabalho em uma única pasta de trabalho. No entanto, as guias não são nomeadas a partir do nome do arquivo original.

Agregação correta de planilhas, mas nomes de planilhas incorretos.

Por enquanto, todas as pastas de trabalho subjacentes estarão na mesma pasta. A capacidade de procurar e selecionar os arquivos seria boa se isso mudar, mas se isso for muito difícil, basta indicar o caminho do diretório no código do Visual Basic. Na medida em que a saída combinada resultante provavelmente deva ser uma nova pasta de trabalho, o nome do arquivo da nova pasta de trabalho não é tão importante. Pode ser chamado de combinado.xlsx, por exemplo.