Object Library. " Clique em " OK". 
 2  Digite o seguinte para criar uma nova sub-rotina : " Enter". 
 
 Private Sub importExcelData () 
 
 Imprensa 
 
 
 3 
 Digite o seguinte para criar as suas variáveis : 
 
 Dim livro como pasta de trabalho 
 
 Dim dataInExcel as String 
 4 
 Digite o seguinte para abrir o livro do Excel : 
 
 Application.ScreenUpdating = False 
 
 Definir pasta de trabalho = Workbooks.Open ( "C: \\ Book1.xls ", True , True) 
 
 Editar "C: \\ Book1.xls " e digite o seu próprio caminho e pasta de trabalho nome 
 5 
 digite o seguinte para obter dados de "A1" na sua pasta de trabalho e adicioná-lo ao seu documento do Word: . 
 
 dataInExcel = Texto: = dataInExcel 
 6 
 Digite o seguinte para obter dados de "A2" na sua pasta de trabalho e adicioná-lo ao documento do Word : 
 
 dataInExcel = Texto: = dataInExcel 
 7 
 Digite o seguinte para fechar a pasta de trabalho e liberar as variáveis da memória : 
 
 workBook.Close Falso 
 
 Definir pasta de trabalho = Nothing 
 
 Application.ScreenUpdating = True