Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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


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


Следующий код VBA может помочь вам скопировать данные из рабочей книги, не открывая ее в открытую рабочую книгу, выполните следующие действия:

1, Удерживайте ALT + F11 и открывает Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в Окно модуля.

Код VBA: импорт данных из закрытой книги в текущую книгу

Sub ImportDatafromcloseworkbook()
'Update 20150707
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, Затем нажмите открыть и KutoolsforExcel появится диалоговое окно, напоминающее вам выбор диапазона данных, которые вы хотите импортировать в другую книгу, см. снимок экрана:

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

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

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

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


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

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

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

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

1. щелчок Предприятие > Импорт / Экспорт > Вставить файл в курсор, см. снимок экрана:

doc импортировать данные из закрытой книги 4

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

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

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

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

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

Скачать и бесплатно пробную версию Kutools для Excel сейчас!

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

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

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

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

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guilherme · 8 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Mir · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Tawfiq · 3 years ago
    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?