Hogyan importálhat / másolhat adatokat a zárt munkafüzetből az aktuális munkafüzetbe?
Könnyen másolhatunk adatokat egy megnyitott munkalapról, és beilleszthetjük őket egy másik megnyitott munkafüzetbe, de megpróbáltunk már adatokat importálni egy zárt munkafüzetből egy megnyitott munkafüzetbe? Ebben a cikkben arról fogok beszélni, hogyan importálhatunk adatokat egy zárt munkafüzetből.
Adatok importálása a zárt munkafüzetből a VBA kóddal ellátott jelenlegi munkafüzetbe
Importáljon adatokat a zárt munkafüzetből az aktuális munkafüzetbe a Kutools for Excel segítségével
Adatok importálása a zárt munkafüzetből a VBA kóddal ellátott jelenlegi munkafüzetbe
A következő VBA-kód segíthet az adatok másolásában egy munkafüzetből anélkül, hogy megnyitná azokat az aktív megnyitott munkafüzetbe. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Adatok importálása a zárt munkafüzetből az aktuális munkafüzetbe
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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és a Fájl megnyitva ablakban válassza ki a munkafüzetet, amelybe importálni szeretné az adatait, lásd a képernyőképet:
4. Ezután kattintson Nyisd ki gombot és KutoolsforExcel megjelenik a párbeszédpanel, amely emlékeztet arra, hogy kiválaszt egy olyan adatsort, amelyet más munkafüzetbe szeretne importálni, lásd a képernyőképet:
5. Kattintson a gombra OK gomb, a felbukkanó párbeszédpanelen válasszon ki egy cellát, ahová az adatokat el szeretné helyezni, lásd a képernyőképet:
6. és kattintson OK, a zárt munkafüzet adatait importálta az aktuális munkafüzetbe.
Importáljon adatokat a zárt munkafüzetből az aktuális munkafüzetbe a Kutools for Excel segítségével
A VBA kód kissé nehéz lehet az Excel kezdő programunk számára, ezért itt egy praktikus eszközt ajánlok neked-Kutools az Excel számára, Annak Fájl beszúrása a kurzorhoz funkcióval gyorsan és egyszerűen beillesztheti a zárt munkafüzet munkalapjának teljes tartalmát.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Kattints Kutools Plus > Import Export > Fájl beszúrása a kurzorhoz, lásd a képernyőképet:
2. Az Fájl beszúrása a kurzorhoz párbeszédpanelen hajtsa végre a következő műveleteket:
(1.) Kattintson gombra, hogy kiválasszon egy cellát, ahová az importált adatokat el szeretné helyezni;
(2.) Kattintson gombbal válassza ki a munkafüzetet, amelybe importálni szeretné az adatait.
Jegyzet: Csak érték (nincs képlet): Ha bejelöli ezt a lehetőséget, akkor csak az érték importálódik, és a képletek nem lesznek importálva.
Ne vigye át a formázást: Ha bejelöli ezt az opciót, akkor az adatokat formázás nélkül importálja a munkalapba.
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
3. Ezután kattintson OK, ha egynél több munkalap van a munkafüzetben, a Válasszon ki egy munkalapot párbeszédpanel jelenik meg, kérjük, adjon meg egy munkalapot, amelybe importálni szeretné az adatokat, lásd a képernyőképet:
4. Kattintson a gombra OK gombra, a kiválasztott munkalap adatai importálásra kerültek az aktuális munkafüzetbe.
Kattintson, ha többet szeretne megtudni erről a Fájl beszúrása a kurzorról funkcióról.
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Demo: Importáljon adatokat a zárt munkafüzetből az aktuális munkafüzetbe a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!