Come importare o copiare dati da una cartella di lavoro chiusa nel foglio di lavoro corrente?
È facile copiare dati da un foglio di lavoro aperto e incollarli in un’altra cartella di lavoro aperta, ma ha mai provato a importare dati da una cartella di lavoro chiusa in una cartella aperta? In questo articolo le mostrerò come importare dati da una cartella di lavoro chiusa.
Importare dati da una cartella di lavoro chiusa in Foglio di lavoro corrente con codice VBA
Importare dati da una cartella di lavoro chiusa in Foglio di lavoro corrente con Kutools per Excel
Importare dati da una cartella di lavoro chiusa in Foglio di lavoro corrente con codice VBA
Il seguente codice VBA Le permette di copiare dati da una cartella di lavoro senza aprirla direttamente nella cartella attualmente aperta. Proceda come indicato di seguito:
1. Tenendo premuti i tasti ALT + F11, si aprirà la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del modulo.
Codice VBA: Importare dati da una cartella di lavoro chiusa in Foglio di lavoro corrente
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. Premere quindi il tasto F5 per eseguire il codice. Nella finestra Apri file, selezionare la cartella di lavoro da cui si desidera importare i dati. Vedi screenshot:
4. Fare quindi clic sul pulsante Apri: apparirà la finestra di dialogo KutoolsforExcel, che La inviterà a selezionare l'intervallo di dati da importare in un'altra cartella di lavoro. Vedi screenshot:
5.Fare quindi clic sul pulsante OK, nella finestra di dialogo visualizzata, selezionare una cella in cui inserire i dati, vedi screenshot:
6. Fare clic su OK: i dati presenti nella cartella di lavoro chiusa sono stati importati nel foglio di lavoro corrente.
Importare dati da una cartella di lavoro chiusa in Foglio di lavoro corrente con Kutools per Excel
Il codice VBA può risultare complesso per chi è alle prime armi con Excel; per questo motivo, Le consiglio uno strumento pratico: Kutools per Excel. Grazie alla sua funzionalità Inserisci file alla posizione del cursore, potrà inserire rapidamente e facilmente l’intero contenuto di un foglio di lavoro proveniente da una cartella chiusa.
Dopo aver installato Kutools per Excel, procedere come segue:
1.Fare clic su KUTOOLS PLUS>Importa/Esporta>Inserisci file alla posizione del cursore, vedi screenshot:
2. Nella finestra di dialogo Inserisci file alla posizione del cursore, esegui le seguenti operazioni:
(1.) Fare clic sul 
pulsante per selezionare una cella in cui si desidera inserire i dati importati;
(2.) Fare clic sul pulsante 
per selezionare la cartella di lavoro da cui si desidera importare i dati.
Nota: Solo valori (nessuna formula): se selezioni questa opzione, verranno importati esclusivamente i valori, non le formule.
Non trasferire la formattazione: attivando questa opzione, i dati verranno importati nel foglio di lavoro senza alcuna formattazione.
3. Fare quindi clic su OK. Se la cartella contiene più di un foglio di lavoro, apparirà la finestra di dialogo Seleziona un foglio di lavoro: specifica il foglio di lavoro da cui importare i dati. Vedi screenshot:
4. Fare quindi clic sul pulsante OK; i dati del foglio selezionato verranno importati nel foglio di lavoro corrente.
Scarica e prova gratuitamente Kutools per Excel ora!
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi