Jak importovat / kopírovat data z uzavřeného sešitu do aktuálního sešitu?
Je pro nás snadné zkopírovat data z otevřeného listu a vložit je do jiného otevřeného sešitu, ale zkusili jste někdy importovat data z uzavřeného sešitu do otevřeného sešitu? V tomto článku budu hovořit o tom, jak importovat data z uzavřeného sešitu.
Importujte data z uzavřeného sešitu do aktuálního sešitu pomocí kódu VBA
Importujte data z uzavřeného sešitu do aktuálního sešitu pomocí Kutools pro Excel
Importujte data z uzavřeného sešitu do aktuálního sešitu pomocí kódu VBA
Následující kód VBA vám může pomoci zkopírovat data ze sešitu bez jeho otevření do aktivního otevřeného sešitu, proveďte prosím následující kroky:
1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Import dat z uzavřeného sešitu do aktuálního sešitu
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a v Otevřít soubor v okně vyberte sešit, do kterého chcete importovat jeho data, viz screenshot:
4. Pak klikněte na tlačítko Otevřená , a Kutools pro Excel Zobrazí se dialogové okno, které vám připomene výběr rozsahu dat, která chcete importovat do jiného sešitu, viz screenshot:
5. A pak klikněte na tlačítko OK Tlačítko, ve vyskakovacím dialogovém okně vyberte buňku, kam chcete vložit data, viz screenshot:
6, A klikněte na tlačítko OK, data v uzavřeném sešitu byla importována do aktuálního sešitu.
Importujte data z uzavřeného sešitu do aktuálního sešitu pomocí Kutools pro Excel
Kód VBA může být pro začátečníka aplikace Excel poněkud obtížný, takže vám zde doporučím užitečný nástroj -Kutools pro Excel, S jeho Vložte soubor na kurzor Díky této funkci můžete rychle a snadno vložit celý obsah listu z uzavřeného sešitu.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně:
1. klikněte Kutools Plus > Import Export > Vložte soubor na kurzor, viz screenshot:
2. V Vložte soubor na kurzor dialogové okno, proveďte následující operace:
(1.) Klikněte 
tlačítko pro výběr buňky, kam chcete umístit importovaná data;
(2.) Klikněte 
tlačítko a vyberte sešit, do kterého chcete importovat jeho data.
Poznámka: Pouze hodnota (žádné vzorce): Pokud zaškrtnete tuto možnost, bude importována pouze hodnota a vzorce nebudou importovány.
Nepřenášejte formátování: Zaškrtnutím této možnosti importujete data do listu bez formátování.
3. Pak klikněte na tlačítko OK, pokud je v sešitu více než jeden list, a Vyberte list vyskočí dialogové okno, zadejte list, do kterého chcete data importovat, viz screenshot:
4. A pak klikněte na tlačítko OK tlačítko, data ve vybraném listu byla importována do aktuálního sešitu.
Klepnutím zobrazíte další podrobnosti o této funkci Vložit soubor u kurzoru.
Stáhněte si zdarma zkušební verzi Kutools pro Excel!
Demo: Import dat z uzavřeného sešitu do aktuálního sešitu pomocí programu Kutools pro Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
