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

or

Как объединить / импортировать несколько файлов csv в несколько листов?

Если вы хотите импортировать несколько файлов csv из папки в виде отдельных рабочих листов в книге, как вы можете справиться с этой работой в Excel?

Импортировать несколько файлов csv в отдельные листы с кодом VBA

Импортировать несколько файлов csv в отдельные листы с помощью Kutools for Excel

Разделите книгу на несколько отдельных файлов csv / pdf / txt / excel


Объединение / импорт нескольких рабочих листов или файлов csv в одну книгу:

В вашей повседневной работе объединение нескольких рабочих листов или рабочих книг в один рабочий лист или книгу может быть огромной и головной работой. Но если у вас есть Kutools for Excel, с его мощной утилитой - Сочетать, вы можете быстро объединить несколько рабочих листов, книг в один рабочий лист или книгу.

doc import csv на рабочий лист 6

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



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

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

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

Код VBA: импортировать несколько текстовых файлов для разделения рабочих листов:

Sub CombineCsvFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3, Затем нажмите F5 чтобы выполнить этот код, и выскочит окно, перейдите в конкретную папку и выберите файлы csv, которые вы хотите импортировать в Excel, см. снимок экрана:

doc import csv на рабочий лист 1

4, Затем нажмите открыть , выбранные файлы csv были импортированы как отдельные рабочие листы в новой книге.

5, Наконец, вы можете сохранить новую книгу, как вам нужно.


Если у вас есть Kutools for Excel, с его мощным инструментом -Сочетать, вы можете быстро объединить или импортировать несколько файлов csv в один рабочий лист или несколько разделенных листов, сколько вам нужно.

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

1, Пожалуйста, нажмите Предприятие > Сочетать, см. снимок экрана:

doc import csv на рабочий лист 5

2. в Комбинированные рабочие листы диалогового окна, выберите Объединение нескольких рабочих листов из книг в одну книгу, см. снимок экрана:

doc import csv на рабочий лист 6

3. В Шаг 2 мастера, нажмите Добавить > филе для выбора файлов csv, которые вы хотите объединить, см. снимок экрана:

doc import csv на рабочий лист 7

4, В появившемся открыть диалоговое окно, выберите (* .csv) из выпадающего списка, а затем укажите файлы csv, которые вы хотите объединить.

doc import csv на рабочий лист 8

5, Затем нажмите открыть и ваши выбранные файлы csv были импортированы в диалоговое окно, см. снимок экрана:

doc import csv на рабочий лист 9

6. В Шаг 3, выполните следующие действия:

(1.) Проверка Первая строка каждого рабочего листа (комментарии) из Вставить информацию о листе раздел, вся информация о файлах csv будет вставлена ​​в комбинированные листы в виде комментариев;

(2.) Вы можете переименовать файлы csv по мере необходимости;

(3.) Вы можете пропустить пустые файлы csv при сбое пустого файла csv.

doc import csv на рабочий лист 10

7, Затем нажмите Конец и после завершения объединения вы можете указать имя и местоположение файла для новой комбинированной книги. Смотрите скриншот:

doc import csv на рабочий лист 11

8, Затем нажмите Сохранить , в всплывающем поле promt вы можете открыть новый щелчок файла Да, и закройте его, нажав Нет, см. снимок экрана:

doc import csv на рабочий лист 12

9, И тогда вы можете сохранить этот сценарий или нет, как вам нравится. Смотрите скриншот:

doc import csv на рабочий лист 13

10, Наконец, выбранные файлы csv были импортированы в новую рабочую книгу с отдельным листом, см. Снимок экрана:

doc import csv на рабочий лист 14

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


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


В некоторых случаях вы можете разделить книгу на отдельные файлы csv, утилита Kutools для Excel Split Workbook может быстро и легко завершить эту работу.

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

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

1. Щелчок Предприятие > Workbook > Сплит-книга, см. снимок экрана:

doc import csv на рабочий лист 2

2. в Сплит-книга диалоговое окно:

(1.) Проверьте рабочие листы, которые вы хотите разбить;

(2.) И проверьте Укажите сохранениеформат, затем выберите формат файла, который вы хотите сохранить;

(3.) Затем нажмите Трещина и укажите папку для размещения разделенных файлов.

doc import csv на рабочий лист 3

3, Затем нажмите OK чтобы начать расщепление, рабочая книга будет разделена на отдельные файлы csv, которые вам нужны.

doc import csv на рабочий лист 4

Скачать и бесплатно пробную версию Kutools для 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.
    Rohit · 3 months ago
    Thank you . Very handy
  • To post as a guest, your comment is unpublished.
    Amit · 4 months ago
    Thank you! The code was very useful
  • To post as a guest, your comment is unpublished.
    Andrew · 2 years ago
    Thank you for sharing this code. It is exactly what I was looking for.

    Sadly it is not working as well as I hoped it would.

    I am receiving an error message every time the code is run.
    ERROR: "The name is already taken. Try a different one."

    Notes:
    - I am trying to combine four csv files
    - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..."


    The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error.

    If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback.

    Thank you all in advanced for you time.

    Best regards,
    Andrew
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    Thank you for the code on combining files.

    I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook.

    How do I go about achieving that?