? Hvordan importere data fra lukket arbeidsbok i gjeldende arbeidsbok

The følgende VBA-kode kan hjelpe deg med å kopiere data fra en arbeidsbok uten å åpne den i aktiv åpnet arbeidsbok, kan du gjøre med følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Importer data fra lukket arbeidsbok i gjeldende arbeidsbok
Sub ImportDatafromcloseworkbook () 'Update 20150707Dim XWB Som WorkbookDim xAddWb Som WorkbookDim xRng1 Som RangeDim xRng2 Som RangeSet XWB = Application.ActiveWorkbookxTitleId = "KutoolsforExcel" Med 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) Sett xAddWb = Application.ActiveWorkbook Set xRng1 = Application.InputBox (spør: = "Velg kilde range", Tittel: = xTitleId, Standard: = "A1", Type: = 8 ) xWb.Activate Set xRng2 = Application.InputBox (tekst: = "Velg destinasjonscelle", Tittel: = xTitleId, Standard: = "A1", Type: = 8) xRng1.Copy xRng2 xRng2.CurrentRegion.EntireColumn.AutoFit xAddWb. Lukk False End IfEnd WithEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og i Fil Åpne vinduet velger arbeidsboken du vil importere sine data, se skjermbilde:
4. Klikk deretter på Åpne-knappen, og KutoolsforExcel dialogboks spretter ut for å minne deg på å velge en rekke data som du ønsker å importere til annen arbeidsbok, se skjermbilde:
5. Og klikk deretter på OK-knappen i spratt ut dialogboksen velger en celle der du vil plassere dataene, se skjermbilde:
6. Og klikker OK, dataene i lukket arbeidsbok har blitt importert til gjeldende arbeidsbok.

Importer data fra lukket arbeidsbok i gjeldende arbeidsbok med Kutools for Excel
VBA-kode kan være litt vanskelig for vår Excel nybegynner , så her vil jeg anbefale deg et hendig verktøy-Kutools for Excel, med sin Sett inn fil på markøren funksjonen, kan du sette inn hele innholdet i et regneark fra en lukket arbeidsbok raskt og enkelt
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå. Etter å ha installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
en. Klikk Enterprise > Import /Export > Sett inn fil på markøren, se skjermbilde:
to. I Sett inn fil på markøren dialogboksen gjøre følgende operasjoner:
(1.) Klikk for å velge en celle der du vil plassere den importerte data, plakater (2.) Klikk for å velge arbeidsboken du ønsker å importere sine data
. Merk:
Verdi bare (ingen formler): Hvis du velger dette alternativet, bare verdien vil bli importert, og formlene vil ikke bli importert
. Ikke overfør formatering: merke dette alternativet importere data inn i regnearket uten formatering
3.. Klikk deretter på OK, hvis det er mer enn ett regneark i arbeidsboken, vil en Velg en dialog regneark boks sprette ut, spesifiser et regneark som du vil importere data, se skjermbilde:
4. Og klikk deretter på OK-knappen, dataene i den valgte regneark har blitt importert til gjeldende arbeidsbok.
Klikk for å vite mer detaljer om denne Sett inn fil på markøren funksjonen.
Gratis nedlasting Kutools for Excel Nå