glhrdias

Olá amigos, Estou com problemas para inserir a leitura e abertura de arquivos .XLS em pastas e subpastas. O código abaixo está funcionando apenas para abertura de arquivos .XLS em pastas, porém não funciona em subpastas. Por favor, se alguém souber o como, ficarei imensamente grato. Sub open_and_copy() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim FSO As Object Dim pasta_arquivos As String Dim Planilha As Object Dim OpenBook As String Set FSO = CreateObject("Scripting.FileSystemObject") pasta_arquivos = ThisWorkbook.Sheets("COMPILADOR").Range("H4") 'LOCAL CONTENDO A NOMENCLATURA DO RELATÓRIO' For Each Planilha In FSO.GetFolder(pasta_arquivos).Files If InStr(1, Planilha, ".xls") = 0 Then GoTo PROXIMO Workbooks.Open (Planilha) OpenBook = ActiveWorkbook.Name PROXIMO: Next