MACRO PARA

[marcelovfarias 0]

Fala Pessoal,

Alguém poderia me ajudar com uma macro???.

Não manjo muito de VBA por isso recorro aos experts :P

Tenho uma lista com nomes no excel e tenho uma pasta com algumas subpastas, onde gostaria que fossem localizados os arquivos com nomes iguais ao da lista, e copiados todos para uma nova pasta zipados por tipo.

Exemplo pratico:

***Lista Excel***

MARCELO

JOAO

JOSE

***Na Pasta Documentos***

Subpasta RG

MARCELO.PDF

JOAO.PDF

JOSE.PDF

Subpasta CPF

MARCELO.PDF

JOAO.PDF

JOSE.PDF

Subpasta CTPS

MARCELO.PDF

JOAO.PDF

JOSE.PDF

Após rodar a macro eu teria uma nova pasta criada com 3 arquivos diferentes .zip (RG, CPF e CTPS) com os arquivos citados acima zipados juntos.

Grato pela ajuda!

[Gerciley 14]

Olá Marcelo, supondo que você já tenha um programa para compactar/descompactar arquivos.

o princípio básico do que você precisa é:

Sub ZipaArquivoAtual()
Call Shell("C:\Arquivos de programas\winzip\winzip32.exe -a -e C:\MeuArquivo.zip " & ActiveWorkbook.FullName)
End Sub

Recomendo que use o software de compactação WinZip.. agora você só precisa fazer a interação com a planilha para pegar os nomes dos arquivos nas células com Range("A1:A...") e fazer um loop como preferir tipo.. for... while.. recomendo for..

Abraços e Boa Sorte!