Rogério Moraes

Consegui a resposta em outro fórum.. e ficou assim minha macro. ThisWorkbook.Activate Path2 = Range("B1").Value If IsError(Path2) Then Path2 = "C:\Temp" Set abr = CreateObject("Scripting.FileSystemObject") Set here = abr.GetFolder(Path2) For Each FileOpen In here.Files 'percorre lista de arquivos If abr.GetExtensionName(FileOpen.Path) = "xls" Then Workbooks.Open Filename:=FileOpen.Path Windows(FileOpen.Name).Activate Link do Forum. http://www.tomasvasquez.com.br/forum/viewt...f=20&t=2254

Boa tarde, Preciso de uma ajuda, uso uma macro (não fui eu quem criou e a pessoa não está mais na empresa =/ ) que abre todos os arquivos de um diretório específico, e executava alguns comandos em cada arquivo aberto e depois fechava o mesmo. Até ai tudo bem, o problema é que as pastas escolhidas só continham arquivos ".xls" Agora preciso selecionar algumas pastas que contem outros arquivos ".xls .xlsx .xlsm .rar.zip etc" Quanto aos arquivos do excel (.xlsx .xls .xlsm) não tenho problemas, mas ele tenta abrir os .rar .zip etc que existem também na pasta. Gostaria de saber como posso "bloquear" para que abra somente arquivos do excel. Segue abaixo a macro que estou usando. Grato pela ajuda.