Hoppa till huvudinnehåll

Hur importerar / kopierar jag data från stängd arbetsbok till aktuell arbetsbok?

Det är lätt för oss att kopiera data från ett öppnat kalkylblad och klistra in dem i en annan öppnad arbetsbok, men har du någonsin försökt importera data från en stängd arbetsbok till en öppnad arbetsbok? Den här artikeln kommer jag att prata om hur man importerar data från en stängd arbetsbok.

Importera data från stängd arbetsbok till aktuell arbetsbok med VBA-kod

Importera data från stängd arbetsbok till aktuell arbetsbok med Kutools för Excel


Importera data från stängd arbetsbok till aktuell arbetsbok med VBA-kod

Följande VBA-kod kan hjälpa dig att kopiera data från en arbetsbok utan att öppna den till en aktiv öppnad arbetsbok, gör med följande steg:

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Importera data från stängd arbetsbok till aktuell arbetsbok

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. Tryck sedan på F5 för att köra den här koden och i Filen är öppen välj den arbetsbok som du vill importera dess data, se skärmdump:

doc importerar data från stängd arbetsbok 1

4. Klicka sedan Öppen knappen och KutoolsforExcel dialogrutan dyker upp för att påminna dig om att välja en rad data som du vill importera till en annan arbetsbok, se skärmdump:

doc importerar data från stängd arbetsbok 2

5. Och klicka sedan på OK -knappen, i dialogrutan popped out, välj en cell där du vill placera data, se skärmdump:

doc importerar data från stängd arbetsbok 3

6. och klicka OKhar data i den stängda arbetsboken importerats till den aktuella arbetsboken.


Importera data från stängd arbetsbok till aktuell arbetsbok med Kutools för Excel

VBA-koden kan vara lite svår för vår Excel-nybörjare, så här rekommenderar jag dig ett praktiskt verktyg-Kutools för Excel, med dess Infoga fil på markören kan du infoga hela innehållet i ett kalkylblad från en stängd arbetsbok snabbt och enkelt.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Import Export > Infoga fil på markören, se skärmdump:

doc importerar data från stängd arbetsbok 5

2. I Infoga fil på markören dialogrutan, gör följande:

(1.) Klicka på doc importerar data från stängd arbetsbok 6knappen för att välja en cell där du vill placera de importerade data;

(2.) Klicka på doc importerar data från stängd arbetsbok 7för att välja den arbetsbok som du vill importera dess data.

Notera: Endast värde (inga formler): Om du markerar det här alternativet importeras bara värdet och formlerna importeras inte.

Överför inte formatering: Om du markerar detta alternativ importeras data till kalkylbladet utan formatering.

Ladda ner och prova gratis Kutools för Excel nu!

3. Klicka sedan OK, om det finns mer än ett kalkylblad i arbetsboken, a Välj ett kalkylblad dialogrutan dyker upp, ange ett kalkylblad som du vill importera data, se skärmdump:

doc importerar data från stängd arbetsbok 8

4. Och klicka sedan på OK -knappen har data i det valda kalkylbladet importerats till den aktuella arbetsboken.

Klicka för att få mer information om denna infoga fil vid markörfunktionen.

Ladda ner och testa gratis Kutools för Excel nu!


Demo: Importera data från stängd arbetsbok till aktuell arbetsbok med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Missed important thing. Only values need to be imported (not formulas).
This comment was minimized by the moderator on the site
Hi,
I need to import range of data (with keeping formating) from 5 different workbooks (each contain 3 sheets, only one sheet need to be imported) to 5 specified sheets in master workbook (the destination sheet need to have same name all the time, which is different than source sheet name). Every week the source file/sheet name is different. Could you help with this, please?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
it works grate thank you. i am having issue with data copied its formula not the value. how can i copy only value.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations