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.
| Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
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.
Kliknite, če želite izvedeti več podrobnosti o tej funkciji Vstavi datoteko v kazalcu.
Prenesite in brezplačno preizkusite Kutools za Excel zdaj!
Predstavitev: Uvozite podatke iz zaprtega delovnega zvezka v trenutni delovni zvezek s programom Kutools za Excel
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
