Как да импортирате/копирате данни от затворена работна книга в текущата работна книга?
За нас е лесно да копираме данни от отворен работен лист и да ги поставим в друга отворена работна книга, но опитвали ли сте някога да импортирате данни от затворена работна книга в отворена работна книга? В тази статия ще говоря за това как да импортирате данни от затворена работна книга.
Импортиране на данни от затворена работна книга в текуща работна книга с VBA код
Импортирайте данни от затворена работна книга в текущата работна книга с Kutools за Excel
Импортиране на данни от затворена работна книга в текуща работна книга с VBA код
Следният VBA код може да ви помогне да копирате данни от работна книга, без да я отваряте в активна отворена работна книга, моля, изпълнете следните стъпки:
1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Импортирайте данни от затворена работна книга в текущата работна книга
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. След това натиснете F5 ключ за изпълнение на този код и в Отваряне на файла прозорец, изберете работната книга, чиито данни искате да импортирате, вижте екранна снимка:
4, След това кликнете отворено бутон и Kutools за Excel изскача диалогов прозорец, за да ви напомни да изберете набор от данни, които искате да импортирате в друга работна книга, вижте екранна снимка:
5. И после щракнете върху OK бутон, в изскачащия диалогов прозорец изберете клетка, където искате да поставите данните, вижте екранната снимка:
6, И натиснете OK, данните в затворената работна книга са импортирани в текущата работна книга.
Импортирайте данни от затворена работна книга в текущата работна книга с Kutools за Excel
Кодът на VBA може да е малко труден за нашия начинаещ в Excel, така че тук ще ви препоръчам един удобен инструмент -Kutools за Excel, Със своята Вмъкване на файл в курсора можете бързо и лесно да вмъкнете цялото съдържание на работен лист от затворена работна книга.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Кликнете Kutools плюс > Внос износ > Вмъкване на файл в курсора, вижте екранна снимка:
2. В Вмъкване на файл в курсора диалогов прозорец, направете следните операции:
(1.) Щракнете 
бутон за избор на клетка, в която искате да поставите импортираните данни;
(2.) Щракнете 
бутон, за да изберете работната книга, чиито данни искате да импортирате.
Забележка: Само стойност (без формули): Ако отметнете тази опция, само стойността ще бъде импортирана, а формулите няма да бъдат импортирани.
Не прехвърляйте форматиране: Маркирането на тази опция ще импортира данните в работния лист без форматиране.
3, След това кликнете OK, ако има повече от един работен лист в работната книга, a Изберете работен лист ще изскочи диалогов прозорец, моля, посочете работен лист, в който искате да импортирате данните, вижте екранната снимка:
4, И после щракнете върху OK бутон, данните в избрания работен лист са импортирани в текущата работна книга.
Кликнете, за да научите повече подробности за тази функция за вмъкване на файл в курсора.
Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Демонстрация: Импортирайте данни от затворена работна книга в текущата работна книга с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
