Перейти до основного матеріалу

Як імпортувати / скопіювати дані із закритої книги в поточну книгу?

Нам легко скопіювати дані з відкритого робочого аркуша та вставити їх в іншу відкриту книгу, але чи намагались ви коли-небудь імпортувати дані із закритої книги у відкриту книгу? У цій статті я розповім про те, як імпортувати дані із закритої книги.

Імпортуйте дані із закритої книги до поточної книги з кодом VBA

Імпортуйте дані із закритої книги в поточну книгу за допомогою Kutools для Excel


Імпортуйте дані із закритої книги до поточної книги з кодом VBA

Наступний код VBA може допомогти вам скопіювати дані з книги, не відкриваючи їх в активну книгу, що відкрилася. Будь ласка, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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 ключ для запуску цього коду, а в Файл відкрито у вікні виберіть книгу, до якої потрібно імпортувати її дані, див. знімок екрана:

doc імпортувати дані із закритої книги 1

4. Потім натисніть відкритий кнопка, і Kutools для Excel спливає діалогове вікно, щоб нагадати вам про вибір діапазону даних, які потрібно імпортувати до іншої книги, див. знімок екрана:

doc імпортувати дані із закритої книги 2

5. А потім клацніть OK кнопку, у спливаючому діалоговому вікні виберіть комірку, куди ви хочете помістити дані, див. знімок екрана:

doc імпортувати дані із закритої книги 3

6, І натисніть OK, дані у закритій книзі імпортовано до поточної книги.


Імпортуйте дані із закритої книги в поточну книгу за допомогою Kutools для Excel

Код VBA може бути дещо складним для нашого початківця Excel, тому тут я порекомендую вам зручний інструмент -Kutools для Excel, З його Вставити файл у курсор Ви можете швидко та легко вставити весь вміст аркуша із закритої книги.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Натисніть Kutools Plus > Імпорт-експорт > Вставити файл у курсор, див. скріншот:

doc імпортувати дані із закритої книги 5

2, в Вставити файл у курсор у діалоговому вікні виконайте такі операції:

(1.) Клацніть doc імпортувати дані із закритої книги 6кнопка для вибору комірки, куди ви хочете помістити імпортовані дані;

(2.) Клацніть doc імпортувати дані із закритої книги 7, щоб вибрати книгу, до якої потрібно імпортувати дані.

Примітка: Тільки значення (без формул): Якщо встановити цей прапорець, імпортуватиметься лише значення, а формули не імпортуватимуться.

Не передавайте форматування: Якщо встановити цей прапорець, дані буде імпортовано на аркуш без форматування.

Завантажте та безкоштовно пробуйте Kutools для Excel зараз!

3. Потім натисніть OK, якщо в книзі є більше одного аркуша, a Виберіть аркуш відкриється діалогове вікно, будь ласка, вкажіть аркуш, в який ви хочете імпортувати дані, див. знімок екрана:

doc імпортувати дані із закритої книги 8

4. А потім клацніть OK кнопку, дані на вибраному аркуші імпортовано до поточної книги.

Клацніть, щоб дізнатись більше інформації про цю функцію «Вставити файл на курсор».

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Демонстрація: імпортуйте дані із закритої книги в поточну книгу за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Missed important thing. Only values need to be imported (not formulas).
This comment was minimized by the moderator on the site
Hi,
I need to import range of data (with keeping formating) from 5 different workbooks (each contain 3 sheets, only one sheet need to be imported) to 5 specified sheets in master workbook (the destination sheet need to have same name all the time, which is different than source sheet name). Every week the source file/sheet name is different. Could you help with this, please?
This comment was minimized by the moderator on the site
Works great, however in the file I open it will only allow me to open from the tab that is was last on. Is there a way to allow me to select the worksheet I want first before I select the cell range?
This comment was minimized by the moderator on the site
Hello, Patrick,When applying the above code, if the prompt box is popped out, you can just click any sheet tab you need, and then select the cell range.Please try it again, thank you!
This comment was minimized by the moderator on the site
it works grate thank you. i am having issue with data copied its formula not the value. how can i copy only value.
This comment was minimized by the moderator on the site
Buen dia! he utilizado su macro y realmente me fue muy util, pero quisiera saber, ¿como puedo agregar una instruccion a la macro para que se peguen solo los valores y no las formulas al libro abierto y también quisiera que al pegar la informacion, agregara una fila adicional para poder seguir pegando datos de otros archivos cerrados...

Esto es porque yo recibo informacion de los candidatos y lo debo de concentrar en un formato maestro.
This comment was minimized by the moderator on the site
Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas. Quando faço alteração de algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
This comment was minimized by the moderator on the site
Thanks for the awesome trick here. I managed to get the coding work with my current project. My question is how can I set ''destination cell'' default to range ''A5'' without popping out InputBox
This comment was minimized by the moderator on the site
Thanks for the above. I'm trying to use VBA but when I reach to step #3: 3. Then press F5 key to run this code, and in the File Open window, select the workbook that you want to import its data I can't "see" the file I need to import the data from! the folder doesn't show that file! What can I do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations