Skip to main content

Hoe gegevens te importeren / kopiëren van een gesloten werkboek naar het huidige werkboek?

Author: Xiaoyang Last Modified: 2025-05-29

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:

vba code to select the workbook that you want to import

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:

vba code to select a range of data that you want to import to other workbook

5. Klik vervolgens op de knop OK, en selecteer in het pop-upvenster een cel waar u de gegevens wilt plaatsen, zie screenshot:

 vba code to select a cell to put the data

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.

Kutools voor Excel biedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden vergroot. Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, waardoor gegevensbeheer moeiteloos wordt. Gedetailleerde informatie over Kutools voor Excel...  Gratis proefversie...

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:

click Insert File at Cursor feature of kutools

specify options in the dialog box

2. Voer in het dialoogvenster Bestand invoegen op cursorpositie de volgende handelingen uit:

(1.) Klik select buttonom een cel te selecteren waar u de geïmporteerde gegevens wilt plaatsen;

(2.) Klik browse buttonom 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:

specify a worksheet that you want to import

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

🤖 Kutools AI Assistent: Breng een revolutie teweeg in data-analyse Methode: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools-functies gebruiken
Populaire functies: Dubbele waarden markeren, markeren of identificeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies | Afronden ...
Super ZOEKEN: VLookup met meerdere criteria | VLookup met meerdere waarden | Meervoudig-blad opzoeken | Fuzzy Match ...
Geavanceerde keuzelijst: Snel keuzelijst maken | Afhankelijke keuzelijst | Meervoudige selectie keuzelijst ...
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheid van verborgen kolommen wisselen | Bereik & kolommen vergelijken ...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden per lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...) ...
Top15 toolsets:12 Teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) |50+ Grafiek type (Gantt-diagram, ...) |40+ Praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) |19 Invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 Conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & Opsplitstools (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer

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!