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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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