Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe importeer / kopieer je gegevens uit een gesloten werkboek naar de huidige werkmap?

Het is gemakkelijk voor ons om gegevens van een geopend werkblad te kopiëren en deze naar een geopende werkmap te plakken, maar hebt u ooit geprobeerd 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.

Gegevens uit gesloten werkmap importeren in huidige werkmap met VBA-code

Importeer gegevens uit gesloten werkboek naar de huidige werkmap met Kutools voor Excel


Gegevens uit gesloten werkmap importeren in huidige werkmap met VBA-code


De volgende VBA-code kan u helpen gegevens uit een werkmap te kopiëren zonder deze te openen voor actieve geopende werkmappen, maar u doet dit met de volgende stappen:

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

2. Klikken bijvoegsel > moduleen plak de volgende code in de Module venster.

VBA-code: gegevens uit gesloten werkmap importeren in huidige werkmap

Sub ImportDatafromcloseworkbook()
'Update 20150707
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 importeer gegevens uit gesloten werkmap 1

4. Dan klikken Open knop, en KutoolsforExcel dialoogvenster verschijnt om u eraan te herinneren dat u een gegevensbereik selecteert dat u naar een andere werkmap wilt importeren, zie screenshot:

doc importeer gegevens uit gesloten werkmap 2

5. En klik vervolgens op OK knop, selecteer in het uitgevouwen dialoogvenster een cel waar u de gegevens wilt plaatsen, zie screenshot:

doc importeer gegevens uit gesloten werkmap 3

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


Importeer gegevens uit gesloten werkboek naar 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 snel en eenvoudig de volledige inhoud van een werkblad uit een gesloten werkmap invoegen.

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

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Klik op Enterprise > Import / Export > Voeg bestand in bij Cursorzie screenshot:

doc importeer gegevens uit gesloten werkmap 4

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

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

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

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

Overdracht niet overdragen: Als u deze optie aanvinkt, worden de gegevens zonder opmaak in het werkblad geïmporteerd.

Download en proef Kutools nu voor Excel!

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

doc importeer gegevens uit gesloten werkmap 8

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

Klik voor meer informatie over dit invoegbestand bij de cursorfunctie.

Download en proef Kutools nu voor Excel!


Demo: importeer gegevens uit gesloten werkboek naar de huidige werkmap met Kutools voor Excel

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Guilherme · 8 months 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 · 2 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 · 3 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?