Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe gegevens uit een gesloten werkmap importeren / kopiëren naar de huidige werkmap?

Het is gemakkelijk voor ons om gegevens van een geopend werkblad te kopiëren en in een andere geopende werkmap te plakken, maar heb je ooit geprobeerd om gegevens uit een gesloten werkmap in een geopende werkmap te importeren? In dit artikel zal ik het hebben over het importeren van gegevens uit een gesloten werkmap.

Importeer gegevens uit een gesloten werkmap in de huidige werkmap met VBA-code

Importeer gegevens uit een gesloten werkmap in de huidige werkmap met Kutools voor Excel


Importeer gegevens uit een gesloten werkmap in de huidige werkmap met VBA-code

De volgende VBA-code kan u helpen gegevens uit een werkmap te kopiëren zonder deze naar een actieve geopende werkmap te openen, voer de volgende stappen uit:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: importeer gegevens uit een gesloten werkmap in de huidige werkmap

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 F5 sleutel om deze code uit te voeren, en in de Bestand openen venster, selecteer de werkmap waarvan u de gegevens wilt importeren, zie screenshot:

doc gegevens importeren uit een gesloten werkmap 1

4. Dan klikken Open knop, en KutoolsforExcel dialoogvenster verschijnt om u eraan te herinneren een reeks gegevens te selecteren die u in een andere werkmap wilt importeren, zie screenshot:

doc gegevens importeren uit een gesloten werkmap 2

5. En klik dan OK knop, selecteer in het uitgeklapte dialoogvenster een cel waarin u de gegevens wilt plaatsen, zie screenshot:

doc gegevens importeren uit een gesloten werkmap 3

6. En klik op OK, zijn de gegevens in de gesloten werkmap geïmporteerd in de huidige werkmap.


Importeer gegevens uit een gesloten werkmap in de huidige werkmap met Kutools voor Excel

De VBA-code kan enigszins moeilijk zijn voor onze Excel-beginner, dus hier zal ik u een handige tool aanbevelen-Kutools for Excel, Met Voeg bestand in bij cursor functie, kunt u de volledige inhoud van een werkblad uit een gesloten werkmap snel en gemakkelijk invoegen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Klik Kutools Plus > Importeren en exporteren > Voeg bestand in bij cursor, zie screenshot:

doc gegevens importeren uit een gesloten werkmap 5

2. In de Voeg bestand in bij cursor dialoogvenster voert u de volgende bewerkingen uit:

(1.) Klik doc gegevens importeren uit een gesloten werkmap 6knop om een ​​cel te selecteren waar u de geïmporteerde gegevens wilt plaatsen;

(2.) Klik doc gegevens importeren uit een gesloten werkmap 7om de werkmap te selecteren waarvan u de gegevens wilt importeren.

Opmerking: Alleen waarde (geen formules): Als u deze optie aanvinkt, wordt alleen de waarde geïmporteerd en worden de formules niet geïmporteerd.

Draag geen opmaak over: Als u deze optie aanvinkt, worden de gegevens zonder opmaak in het werkblad geïmporteerd.

Download en gratis proef Kutools voor Excel nu!

3. Dan klikken OK, als er meer dan één werkblad in de werkmap is, a Selecteer een werkblad dialoogvenster verschijnt, geef een werkblad op waarvan u de gegevens wilt importeren, zie screenshot:

doc gegevens importeren uit een gesloten werkmap 8

4. En klik vervolgens op OK knop, zijn de gegevens in het geselecteerde werkblad geïmporteerd in de huidige werkmap.

Klik voor meer details over deze functie Bestand invoegen bij cursor.

Download en gratis proef Kutools voor Excel nu!


Demo: importeer gegevens uit een gesloten werkmap in de huidige werkmap met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Patrick · 3 months ago
    Works great, however in the file I open it will only allow me to open from the tab that is was last on. Is there a way to allow me to select the worksheet I want first before I select the cell range?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Patrick,
      When applying the above code, if the prompt box is popped out, you can just click any sheet tab you need, and then select the cell range.
      Please try it again, thank you!

  • To post as a guest, your comment is unpublished.
    Range · 1 years ago
    it works grate thank you. i am having issue with data copied its formula not the value. how can i copy only value.


  • To post as a guest, your comment is unpublished.
    Susana · 2 years ago
    Buen dia! he utilizado su macro y realmente me fue muy util, pero quisiera saber, ¿como puedo agregar una instruccion a la macro para que se peguen solo los valores y no las formulas al libro abierto y también quisiera que al pegar la informacion, agregara una fila adicional para poder seguir pegando datos de otros archivos cerrados...

    Esto es porque yo recibo informacion de los candidatos y lo debo de concentrar en un formato maestro.
  • To post as a guest, your comment is unpublished.
    Guilherme · 2 years ago
    Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas. Quando faço alteração de algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
  • To post as a guest, your comment is unpublished.
    Mir · 4 years ago
    Thanks for the awesome trick here. I managed to get the coding work with my current project. My question is how can I set ''destination cell'' default to range ''A5'' without popping out InputBox
  • To post as a guest, your comment is unpublished.
    Tawfiq · 5 years ago
    Thanks for the above.

    I'm trying to use VBA but when I reach to step #3:

    3. Then press F5 key to run this code, and in the File Open window, select the workbook that you want to import its data

    I can't "see" the file I need to import the data from! the folder doesn't show that file!

    What can I do?