Esse Código funcionou perfeitamente. Sub Macro5() ' ' Macro5 Macro ' ' Atalho do teclado: Ctrl+h ' Dim wb As Workbook Dim strFile As String...

Boa tarde, Wagner quando eu removi as linhas Windows("330010.xlsx").Activate e ActiveWindow.Close funcionou exatamente como eu queria. Muit...

Bom dia Wagner, tudo bem ? Não tive como te responder na sexta pq sai mais cedo para ir ao médico. A ideia esta certíssima, mas preciso que não fique...

Boa tarde Wagner, Desculpe a demora em enviar o material solicitado. O arquivo 330010 é o arquivo que contém a informação que eu quero extrair, o arq...