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.
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?