VBA EXCEL - IMPORTAR DADOS DE UM LIVRO PARA OUTRO (Import Data from a Workbook to Another)

Uma forma de importar ou copiar dados de um livro ("Livro1") fechado para o livro activo ("Livro2"), atendendo a um conjunto de condições.
Este exemplo mostra como podemos importar ou copiar um conjunto de dados de um livro para outro, sem ser necessário o recurso a colar e copiar.
Para tal, basta colocar este código num módulo VBA e correr a macro. Podemos igualmente associar a macro a uma botão, possibilitando assim a execução do processo através de um único click.

A simple way to import or copy data from a closed book ("Livro1") for the active workbook ("Livro2"), given a set of conditions. 
This example shows how we can import or copy data from one workbook to another without requiring the use of copy and paste.
Simply put this code in a VBA module and run the macro. We can also associate the macro to a button, allowing the execution of the process through a single click. 

Sub ImportarDados ()

    Workbooks.Open Filename:="C:\...\Livro1.xls"

     Dim Origem As Worksheet

     Dim Destino As Worksheet

     Set Origem = Workbooks("Livro1.xls").Worksheets("Folha1")

     Set Destino = Workbooks("Livro2.xls").Worksheets("Folha1")

       k_linhas = 0

       For rw = 11 To k_linhas

          If Origem.Cells(rw, 1).Value > 0 And Origem.Cells(rw, 5) > 0 And Destino.Cells(rw, 17).Value =_

          _Origem.Cells(rw, 1).Value Then

          Destino.Cells(rw, 17).Value = Origem.Cells(rw, 1).Value

          k_linhas = k_linhas + 1

          End If

       Next rw

   Workbooks("Livro1.xls").Close SaveChanges:=False

    MsgBox "Introdução de Dados Concluída"

End Sub