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:

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:

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

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.

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:

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

(1.) Klicka på knappen för att välja en cell där du vill placera de importerade data;

(2.) Klicka på fö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.

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:

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

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