Boa noite pessoal. Estou com um pequeno problema aqui e gostaria de saber se podem me ajudar. É o seguinte, recebo e-mails com uma lista de números de 10 dígitos e anexo ao e-mail vem muitos arquivos de formatos e nomes diferentes.tenho 2 pastas na unidade "D:" com os nomes "D:computador" e "D:servidor". salvo os anexos do e-mail na pasta "D:computador". Depois copio a listas que vem no e-mail e colo no meu arquivo de Excel na coluna "A". a minha macro pega estes números e gera pastas com estes nomes na pasta "D:servidor" e depois copia os arquivos(pertinentes a estas pastas criadas) de "D:computador" para "D:servidorxxxxxxxx". o problema é que a macro cria as pastas corretamente mas na hora de copiar os arquivos em não consigo. Alguém pode me sugerir um código para esta copia, pois os arquivos a serem copiados são de formatos diferentes e também nomes variados.Planilha anexa.

Abaixo lista das pastas que vieram no e-mail e que a macro criou:

1011668232
1013340034
1013681061
1015487800
[/list:u:392wxyl4]

Abaixo os arquivos que vieram anexos e que salvei na pasta "D:computador" e preciso copiar lá para as pastas criadas em "D:servidor":

1015487800 - LISTA.xls
1015487800 - Orçamento Modular.xlsm
1015487800.bak
1015487800.dwg
BURITIZEIRO - 1011668232.docx
NS 1013681061 - DADOS FÍSICOS.doc
NS 1011668232 - DERIVA.pdf
NS 1011668232 - MEMÓRIA DE CÁLCULO RDR.xls
NS 1011668232 - ORÇAMENTO MODULAR.xlsm
NS 1011668232 - PAD.xls
NS 1013681061 - SALV.xls
NS 1011668232 -MED.xls
NS 1011668232.dwg
1013681061.xls
NS 1013340034 - DADOS FÍSICOS.doc
NS 1013340034 - MED.xls
NS 1013340034 - MEMÓRIA DE CÁLCULO RDR.xls
NS 1013340034 - ORÇAMENTO MODULAR.xlsm
NS 1013340034 - PAD.xls
NS 1013340034 - REDE.xls
NS 1013681061 PROJETO.pdf
NS 1013340034.bak
NS 1013340034.dwg
[/list:u:392wxyl4]

Obrigado.

gerar pastas e copiar arquvos.xlsm

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]