Jak zaimportować / skopiować dane z zamkniętego skoroszytu do bieżącego skoroszytu?
Kopiowanie danych z otwartego arkusza i wklejanie ich do innego otwartego skoroszytu jest dla nas łatwe, ale czy kiedykolwiek próbowałeś zaimportować dane z zamkniętego skoroszytu do otwartego skoroszytu? W tym artykule omówię, jak zaimportować dane z zamkniętego skoroszytu.
Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu z kodem VBA
Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu za pomocą Kutools for Excel
Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu z kodem VBA
Poniższy kod VBA może pomóc w kopiowaniu danych ze skoroszytu bez otwierania go do aktywnego otwartego skoroszytu, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu oraz w Plik Otwórz okno, wybierz skoroszyt, do którego chcesz zaimportować jego dane, zobacz zrzut ekranu:
4. Następnie kliknij Otwarte przycisk, i Kutools dla programu Excel wyskakuje okno dialogowe, aby przypomnieć o wyborze zakresu danych, które chcesz zaimportować do innego skoroszytu, zobacz zrzut ekranu:
5. A następnie kliknij OK przycisk, w wyskakującym oknie dialogowym wybierz komórkę, w której chcesz umieścić dane, zobacz zrzut ekranu:
6, i kliknij OKdane z zamkniętego skoroszytu zostały zaimportowane do bieżącego skoroszytu.
Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu za pomocą Kutools for Excel
Kod VBA może być nieco trudny dla naszego początkującego Excela, więc tutaj polecę Ci przydatne narzędzie-Kutools dla programu Excel, Z siedzibą w Wstaw plik do kursora funkcja, możesz szybko i łatwo wstawić całą zawartość arkusza roboczego z zamkniętego skoroszytu.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools Plus > Import Eksport > Wstaw plik do kursorazobacz zrzut ekranu:
2, w Wstaw plik do kursora w oknie dialogowym wykonaj następujące operacje:
(1.) Kliknij przycisk, aby wybrać komórkę, w której chcesz umieścić importowane dane;
(2.) Kliknij , aby wybrać skoroszyt, do którego chcesz zaimportować jego dane.
Uwaga: Tylko wartość (bez formuł): Jeśli zaznaczysz tę opcję, tylko wartość zostanie zaimportowana, a formuły nie zostaną zaimportowane.
Nie przesyłaj formatowania: Zaznaczenie tej opcji spowoduje zaimportowanie danych do arkusza bez formatowania.
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
3. Następnie kliknij OK, jeśli skoroszyt zawiera więcej niż jeden arkusz, a Wybierz arkusz roboczy Pojawi się okno dialogowe, określ arkusz roboczy, do którego chcesz zaimportować dane, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, dane z wybranego arkusza zostały zaimportowane do bieżącego skoroszytu.
Kliknij, aby dowiedzieć się więcej szczegółów na temat funkcji Wstaw plik w kursorze.
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: Importuj dane z zamkniętego skoroszytu do bieżącego skoroszytu za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!