Visual Basic VBA - Copiar dados de diferentes pastas Excel para uma única pasta

[Felipe Gregnanini]

Pessoal, estou precisando automatizar um processo de cópia de determinadas células de diferentes pastas de trabalho do Excel para somente uma, afim de criar um banco de dados.

 

Consegui desenvolver um código VBA no qual consigo selecionar uma pasta de trabalho, copiar os valores das células que preciso e colar na pasta de trabalho final. Porém preciso que o código permita abrir várias pastas de trabalho, copiar as informações (que sempre estão nas mesmas células) e colar as informações na minha pasta final (uma linha embaixo da outra, para ter um banco de dados). Será que alguém pode me salvar?

 

O código que tenho hoje é o seguinte:

 

Sub Pegar_Nota()
Dim AbrirArquivo As Variant
Dim Planilha As Workbook

Application.ScreenUpdating = False

AbrirArquivo = Application.GetOpenFilename(Title:="Procure o Arquivo e Importe Dados", FileFilter:="Arquivos Excel  (*.xls*),*xls*")


If AbrirArquivo <> False Then
    Set Planilha = Application.Workbooks.Open(AbrirArquivo)
        Planilha.Sheets(1).Range("C2").Copy
    ThisWorkbook.Worksheets(3).Range("A2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("Y2").Copy
    ThisWorkbook.Worksheets(3).Range("C2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("AA2").Copy
    ThisWorkbook.Worksheets(3).Range("G2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("R51").Copy
    ThisWorkbook.Worksheets(3).Range("O2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("R41").Copy
    ThisWorkbook.Worksheets(3).Range("P2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("R31").Copy
    ThisWorkbook.Worksheets(3).Range("Q2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("R22").Copy
    ThisWorkbook.Worksheets(3).Range("R2").PasteSpecial xlPasteValues
        Planilha.Sheets(1).Range("R57").Copy
    ThisWorkbook.Worksheets(3).Range("S2").PasteSpecial xlPasteValues
 
    
    Planilha.Close False
End If
Application.ScreenUpdating = True

End Sub

 

[Midori]

São sempre os mesmos arquivos que devem ser abertos? Se for assim você pode criar um vetor com os caminhos e ir abrindo num loop.