Como importar ou copiar dados de um livro fechado para o Livro de Trabalho Atual?
É fácil copiar dados de uma folha de cálculo aberta e colá-los noutro livro aberto — mas já alguma vez tentou importar dados diretamente de um livro fechado para um livro aberto? Neste artigo, mostro-lhe exatamente como fazer essa importação.
Importar dados de um livro fechado para o Livro de Trabalho Atual com código VBA
Importar dados de um livro fechado para o Livro de Trabalho Atual com o Kutools para Excel
Importar dados de um livro fechado para o Livro de Trabalho Atual com código VBA
O código VBA seguinte permite-lhe copiar dados de um livro sem o abrir, diretamente para o livro ativo. Siga os passos abaixo:
1. Prima e mantenha premidas as teclas ALT + F11, o que abre a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Importar dados de um livro fechado para o Livro de Trabalho Atual
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Em seguida, prima a tecla F5 para executar este código e, na janela Abrir Ficheiro, selecione o livro cujos dados pretende importar (ver imagem):
4. Depois, clique no botão Abrir e surge a caixa de diálogo do KutoolsforExcel para lhe recordar que selecione o intervalo de dados que pretende importar para outro livro (ver imagem):
5.Em seguida, clique no botão OKe, na caixa de diálogo que surge, selecione uma célula onde pretende colocar os dados (ver imagem):
6. Clique em OK e os dados do livro fechado serão importados para o Livro de Trabalho Atual.
Importar dados de um livro fechado para o Livro de Trabalho Atual com o Kutools para Excel
O código VBA pode parecer um pouco complicado para quem está a começar no Excel. Por isso, recomendamos uma ferramenta prática – o Kutools para Excel, com a sua funcionalidade Inserir Arquivo na Célula, que lhe permite inserir rápida e facilmente todo o conteúdo de uma folha de cálculo proveniente de um livro fechado.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1.Clique em KUTOOLS PLUS>Importar/Exportar>Inserir Arquivo na Célula(ver imagem):
2. Na caixa de diálogo Inserir Arquivo na Célula, realize as seguintes operações:
(1.) Clique no 
botão para selecionar uma célula onde pretende colocar os dados importados;
(2.) Clique no botão 
para selecionar o livro do qual pretende importar os respetivos dados.
Nota:Apenas valor (sem fórmulas): ao ativar esta opção, apenas o valor será importado — as fórmulas não serão incluídas.
Não transferir formatação: ao ativar esta opção, os dados são importados para a folha de cálculo sem qualquer formatação.
3. Em seguida, clique em OK. Se o livro contiver mais do que uma folha de cálculo, surgirá a caixa de diálogo Selecione uma planilha; especifique a folha de cálculo cujos dados pretende importar (ver imagem):
4. Em seguida, clique no botão OK e os dados da folha de cálculo selecionada serão importados para o Livro de Trabalho Atual.
Transfira e experimente gratuitamente o Kutools para Excel agora!
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos