Hoe gegevens te importeren / kopiëren van een gesloten werkboek naar het huidige werkboek?
Het is eenvoudig om gegevens te kopiëren van een geopend werkblad en ze te plakken in een ander geopend werkboek, maar heb je ooit geprobeerd om gegevens te importeren uit een gesloten werkboek naar een geopend werkboek? In dit artikel zal ik bespreken hoe je gegevens kunt importeren uit een gesloten werkboek.
Gegevens importeren uit een gesloten werkboek naar het huidige werkboek met VBA-code
Gegevens importeren uit een gesloten werkboek naar het huidige werkboek met Kutools voor Excel
Gegevens importeren uit een gesloten werkboek naar het huidige werkboek met VBA-code
De volgende VBA-code kan helpen om gegevens te kopiëren uit een werkboek zonder het te openen naar een actief geopend werkboek. Volg de volgende stappen:
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Gegevens importeren uit een gesloten werkboek naar het huidige werkboek
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. Druk vervolgens op de F5-toets om deze code uit te voeren, en selecteer in het Bestand Openen-venster het werkboek waaruit u de gegevens wilt importeren, zie screenshot:
4. Klik vervolgens op de knop Openen, en er verschijnt een dialoogvenster KutoolsforExcel om u eraan te herinneren een bereik van gegevens te selecteren die u naar een ander werkboek wilt importeren, zie screenshot:
5. Klik vervolgens op de knop OK, en selecteer in het pop-upvenster een cel waar u de gegevens wilt plaatsen, zie screenshot:
6. Klik op OK, en de gegevens uit het gesloten werkboek zijn geïmporteerd in het huidige werkboek.
Gegevens importeren uit een gesloten werkboek naar het huidige werkboek met Kutools voor Excel
De VBA-code kan enigszins moeilijk zijn voor onze beginnende Excel-gebruikers, dus hierbij beveel ik een handig hulpmiddel aan - Kutools voor Excel. Met de functie Bestand invoegen op cursorpositie kunt u snel en gemakkelijk de hele inhoud van een werkblad uit een gesloten werkboek invoegen.
Nadat u Kutools voor Excel hebt geïnstalleerd, volgt u de volgende stappen:
1. Klik op Kutools Plus > Importeren & Exporteren > Bestand invoegen op cursorpositie, zie screenshot:

2. Voer in het dialoogvenster Bestand invoegen op cursorpositie de volgende handelingen uit:
(1.) Klik om een cel te selecteren waar u de geïmporteerde gegevens wilt plaatsen;
(2.) Klik om het werkboek te selecteren waaruit u de gegevens wilt importeren.
Opmerking: Alleen waarden (geen formules): Als u deze optie aanvinkt, worden alleen de waarden geïmporteerd, niet de formules.
Opmaak niet overdragen: Door deze optie aan te vinken worden de gegevens zonder opmaak geïmporteerd in het werkblad.
3. Klik vervolgens op OK, als er meer dan één werkblad in het werkboek zit, verschijnt een Selecteer een Werkblad-dialoogvenster. Specificeer een werkblad waaruit u de gegevens wilt importeren, zie screenshot:
4. Klik vervolgens op de knop OK, en de gegevens uit het geselecteerde werkblad zijn geïmporteerd in het huidige werkboek.
Download en probeer Kutools voor Excel nu gratis uit!
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!