Olá, gente. Então, eu tenho uma pasta no meu computador onde são jogadas várias planilhas e eu preciso das planilha1.xlsm, planilha2.xlsm, planilha3.xlsm... porém elas estão juntas de outras planilhas pois essa pasta no computador é uma pasta pública. Vários arquivos são jogados lá então corre o risco de eu sem querer importar esses arquivos juntos. A partir disso preciso juntar os dados de uma determinada aba dessas planilhas. Exemplo, tenho 3 abas em cada porém todas possuem as mesmas colunas e as mesmas abas, apenas dados diferentes. Quando eu importar preciso jogar em uma aba só um debaixo do outro. Outro ponto é que esses arquivos são sempre atualizados mas preciso manter os dados das tabelas antigas + o novo pondo embaixo... Como faço para pegar esses arquivos em específico levando em consideração que essas planilhas são sempre atualizadas? Não tô sabendo começar. Achei esse código na internet, pois vou usar vba: ``` Option Explicit Private Function ListaArquivos(ByVal Caminho As String) As String() 'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime Dim FSO As New FileSystemObject Dim result() As String Dim Pasta As Folder Dim Arquivo As File Dim Indice As Long ReDim result(0) As String If FSO.FolderExists(Caminho) Then Set Pasta = FSO.GetFolder(Caminho) For Each Arquivo In Pasta.Files Indice = IIf(result(0) = "", 0, Indice + 1) ReDim Preserve result(Indice) As String result(Indice) = Arquivo.Name Next End If ListaArquivos = result ErrHandler: Set FSO = Nothing Set Pasta = Nothing Set Arquivo = Nothing End Function Public Sub UnirTodos() On Error GoTo trata_saida: Application.ScreenUpdating = False Application.DisplayAlerts = False Dim arquivos() As String Dim lCtr As Long, processados As Long arquivos = ListaArquivos(ThisWorkbook.Path) For lCtr = 0 To UBound(arquivos) If ValidaNomeArquivo(arquivos(lCtr)) Then 'Debug.Print arquivos(lCtr) Call UnirAoArquivo(arquivos(lCtr)) processados = processados + 1 End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox processados & " arquivos processados" trata_saida: Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Private Function ValidaNomeArquivo(ByVal nomeArquivo As String) As Boolean Dim result As Boolean result = InStr(1, nomeArquivo, ThisWorkbook.Name, vbTextCompare) = 0 If result Then result = result Or Right(nomeArquivo, 4) = ".xls" result = result Or Right(nomeArquivo, 4) = "xlsx" result = result Or Right(nomeArquivo, 4) = "xlsm" End If ValidaNomeArquivo = result End Function Private Sub UnirAoArquivo(ByVal nomeArquivo As String) On Error GoTo trata_erro_uniraoarquivo Dim wb As Workbook, ws As Worksheet, mySheet As Worksheet, rngCopy As Range Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & nomeArquivo, ReadOnly:=True) Set ws = wb.Worksheets(1) Set mySheet = ThisWorkbook.Worksheets(1) 'seleciona a regiao com conteudo Set rngCopy = ws.Range(ws.Cells(2, 1), ws.Cells(ws.UsedRange.Rows.Count, ws.UsedRange.Columns.Count)) 'copia rngCopy.Copy 'cola no destino With mySheet Call .Paste(.Cells(.UsedRange.Rows.Count + 1, 1)) End With wb.Close trata_saida_uniraoarquivo: Set wb = Nothing Set ws = Nothing Exit Sub trata_erro_uniraoarquivo: GoTo trata_saida_uniraoarquivo: End Sub ``` Esse código não tá especificando quais arquivos pegar... Alguém para me dar uma luz?