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:
4. Dan klikken Openen knop, en KutoolsvoorExcel dialoogvenster verschijnt om u eraan te herinneren een reeks gegevens te selecteren die u in een andere werkmap wilt importeren, zie screenshot:
5. En klik dan OK knop, selecteer in het uitgeklapte dialoogvenster een cel waarin u de gegevens wilt plaatsen, zie screenshot:
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 Koetools Plus > Importeren en exporteren > Voeg bestand in bij cursor, zie screenshot:
2. In de Voeg bestand in bij cursor dialoogvenster voert u de volgende bewerkingen uit:
(1.) Klik knop om een cel te selecteren waar u de geïmporteerde gegevens wilt plaatsen;
(2.) Klik om 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.
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:
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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!