Kako uvoziti / kopirati podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek?

Preprosto kopiramo podatke iz odprtega delovnega lista in jih prilepimo v drug odprt delovni zvezek, toda, ali ste že kdaj poskusili uvoziti podatke iz zaprtega delovnega zvezka v odprti delovni zvezek? V tem članku bom govoril o tem, kako uvoziti podatke iz zaprtega delovnega zvezka.

Uvozite podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek s kodo VBA

Uvozite podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek s programom Kutools za Excel

Uvozite podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek s kodo VBA

Naslednja koda VBA vam lahko pomaga kopirati podatke iz delovnega zvezka, ne da bi jih odprla v aktivno odprto delovno knjigo, naredite naslednje:

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: uvoz podatkov iz zaprtega delovnega zvezka v trenutni delovni zvezek

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. Nato pritisnite F5 ključ za zagon te kode in v Datoteka odprta v delovnem zvezku, v katerega želite uvoziti njegove podatke, glejte posnetek zaslona:

4. Nato kliknite Odprto gumb in KutoolsforExcel Pojavi se pogovorno okno, ki vas opomni, da izberete vrsto podatkov, ki jih želite uvoziti v drugo delovno knjigo, glejte posnetek zaslona:

5. In nato kliknite OK gumb, v pojavnem pogovornem oknu izberite celico, kamor želite vnesti podatke, glejte posnetek zaslona:

6. in kliknite OK, so podatki iz zaprtega delovnega zvezka uvoženi v trenutni delovni zvezek.

Uvozite podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek s programom Kutools za Excel

Koda VBA je morda nekoliko težavna za našega začetnika v Excelu, zato vam tukaj priporočam priročno orodje -Kutools za Excel, Z njegovim Vstavite datoteko v kazalec funkcijo lahko hitro in enostavno vstavite celotno vsebino delovnega lista iz zaprtega delovnega zvezka.

Po namestitvi Kutools za Excel, naredite naslednje:

1. klik Kutools Plus > Uvozno-izvoznih > Vstavite datoteko v kazalec, glej posnetek zaslona:

2. v Vstavite datoteko v kazalec v pogovornem oknu izvedite naslednje postopke:

(1.) Kliknite gumb, da izberete celico, kamor želite shraniti uvožene podatke;

(2.) Kliknite , da izberete delovni zvezek, v katerega želite uvoziti njegove podatke.

Opomba: Samo vrednost (brez formul): Če potrdite to možnost, bo uvožena samo vrednost in formule ne bodo uvožene.

Ne prenašajte oblikovanja: Če potrdite to možnost, boste podatke uvozili na delovni list brez formatiranja.

3. Nato kliknite OK, če je v delovnem zvezku več delovnih listov, a Izberite delovni list Odprlo se bo pogovorno okno, določite delovni list, v katerega želite uvoziti podatke, glejte sliko zaslona:

4. In nato kliknite OK Podatki na izbranem delovnem listu so bili uvoženi v trenutni delovni zvezek.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!