Note: The other languages of the website are Google-translated. Back to English

Как импортировать / скопировать данные из закрытой книги в текущую?

Нам легко скопировать данные из открытого рабочего листа и вставить их в другую открытую книгу, но пробовали ли вы когда-нибудь импортировать данные из закрытой книги в открытую? В этой статье я расскажу о том, как импортировать данные из закрытой книги.

Импортировать данные из закрытой книги в текущую книгу с кодом VBA

Импортировать данные из закрытой книги в текущую книгу с помощью Kutools for 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 ключ для запуска этого кода, и в Файл открыт В окне выберите книгу, в которую вы хотите импортировать данные, см. снимок экрана:

данные импорта документов из закрытой книги 1

4. Затем нажмите Откройте и KutoolsforExcel Появится диалоговое окно, напоминающее вам о выборе диапазона данных, которые вы хотите импортировать в другую книгу, см. снимок экрана:

данные импорта документов из закрытой книги 2

5. Затем нажмите OK , в появившемся диалоговом окне выберите ячейку, в которую вы хотите поместить данные, см. снимок экрана:

данные импорта документов из закрытой книги 3

6, И нажмите OK, данные из закрытой книги были импортированы в текущую книгу.


Импортировать данные из закрытой книги в текущую книгу с помощью Kutools for Excel

Код VBA может быть несколько сложным для нашего новичка в Excel, поэтому я порекомендую вам удобный инструмент -Kutools for Excel, С его Вставить файл в курсор вы можете легко и быстро вставить все содержимое листа из закрытой книги.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Импорт Экспорт > Вставить файл в курсор, см. снимок экрана:

данные импорта документов из закрытой книги 5

2. В Вставить файл в курсор диалоговом окне выполните следующие операции:

(1.) Щелкните данные импорта документов из закрытой книги 6кнопка для выбора ячейки, в которую вы хотите поместить импортированные данные;

(2.) Щелкните данные импорта документов из закрытой книги 7кнопку, чтобы выбрать книгу, данные которой вы хотите импортировать.

Примечание: Только значение (без формул): Если вы отметите этот параметр, будет импортировано только значение, а формулы не будут импортированы.

Не передавать форматирование: Установка этого флажка приведет к импорту данных на лист без форматирования.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

3. Затем нажмите OK, если в книге более одного листа, Выберите рабочий лист появится диалоговое окно, укажите лист, в который вы хотите импортировать данные, см. снимок экрана:

данные импорта документов из закрытой книги 8

4, Затем нажмите OK Кнопка, данные из выбранного листа были импортированы в текущую книгу.

Нажмите, чтобы узнать больше об этой функции «Вставить файл в курсор».

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Демонстрация: импорт данных из закрытой книги в текущую книгу с помощью Kutools for Excel

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

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за вышеизложенное. Я пытаюсь использовать VBA, но когда я дохожу до шага № 3: 3. Затем нажмите клавишу F5, чтобы запустить этот код, и в окне «Открыть файл» выберите книгу, данные которой вы хотите импортировать. Я не могу «видеть " файл, из которого мне нужно импортировать данные! папка не показывает этот файл! Что я могу сделать?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за удивительный трюк здесь. Мне удалось заставить работать кодирование с моим текущим проектом. Мой вопрос заключается в том, как я могу установить для «целевой ячейки» по умолчанию диапазон «A5», не открывая InputBox.
Этот комментарий был сведен к минимуму модератором на сайте
Funcionou Primeira vez Que tenei.. Agora por algum motivo não esta funcionando mais..Parece que esta copyiando os valores apenas. Quando faço alteração де algum дадо на planilha, nao esta мудандо па outra.. o Que devo fazer?
Этот комментарий был сведен к минимуму модератором на сайте
Буэн диа! он использует макрос 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 эс porque йо recibo informacion де лос candidatos у ло дебо де concentrar ан ип формат маэстро.
Этот комментарий был сведен к минимуму модератором на сайте
работает отлично спасибо. у меня проблема с данными, скопированными его формулой, а не значением. как я могу скопировать только значение.
Этот комментарий был сведен к минимуму модератором на сайте
Отлично работает, однако в файле, который я открываю, он позволяет мне открывать только с последней вкладки. Есть ли способ позволить мне сначала выбрать нужный лист, прежде чем я выберу диапазон ячеек?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Патрик! При применении приведенного выше кода, если всплывает окно подсказки, вы можете просто щелкнуть любую вкладку листа, которая вам нужна, а затем выбрать диапазон ячеек. Пожалуйста, попробуйте еще раз, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Мне нужно импортировать диапазон данных (с сохранением форматирования) из 5 разных книг (каждая содержит 3 листа, нужно импортировать только один лист) до 5 указанных листов в основной книге (целевой лист должен иметь одно и то же имя все время, которое отличается от имени исходного листа). Каждую неделю имя исходного файла/листа меняется. Не могли бы вы помочь с этим, пожалуйста?
Этот комментарий был сведен к минимуму модератором на сайте
Упустил важное. Необходимо импортировать только значения (не формулы).
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL