Как объединить или импортировать несколько CSV-файлов на разные листы?
Как импортировать несколько CSV-файлов из папки в одну книгу Excel, разместив каждый файл на отдельном листе?
Импорт нескольких CSV-файлов в отдельные листы с помощью кода VBA
Импорт нескольких CSV-файлов в отдельные листы с помощью Kutools для Excel
Разделение книги на несколько отдельных файлов CSV / PDF / TXT / Файлы Excel
Импорт нескольких CSV-файлов в отдельные листы с помощью кода VBA
Чтобы быстро импортировать несколько CSV-файлов в книгу, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код VBA: импорт нескольких Текстовый файл в отдельные листы:
Sub CombineCsvFiles()
'updateby Extendoffice
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 (см. скриншот).
4. После этого нажмите кнопку Открыть, и выбранные CSV-файлы будут импортированы как отдельные листы в новую рабочую книгу.
5. Наконец, вы можете сохранить новую рабочую книгу именно так, как вам нужно.
Импорт нескольких CSV-файлов в отдельные листы с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, с его мощным инструментом Объединить вы сможете быстро объединить или импортировать несколько CSV-файлов — в один лист или в несколько отдельных листов по вашему выбору.
После установки Kutools для Excelвыполните следующие действия:
1. Нажмите KUTOOLS PLUS > Объединить (см. скриншот).
2. В диалоговом окне Объединить листы выберите Копировать листы из нескольких книг в одну книгу (см. скриншот).
3. На шаге Шаг 2 мастера нажмите Добавить > Файл, чтобы выбрать CSV-файлы для объединения (см. скриншот).
4. В появившемся диалоговом окне Открыть выберите (*.csv) из выпадающего списка и укажите CSV-файлы, которые хотите объединить.
5. Затем нажмите кнопку Открыть, и выбранные CSV-файлы появятся в диалоговом окне (см. скриншот).
6. На Шаге 3 выполните следующие действия:
(1.) Установите флажок В первой строке каждого листа (как комментарии)в разделе Добавить информацию о листе, чтобы информация о всех CSV-файлах была добавлена в объединённые листы в виде комментариев;
(2.) Вы можете переименовать CSV-файлы по своему усмотрению;
(3.) Вы можете пропустить пустые CSV-файлы, если они вам попадутся.
7. Затем нажмите кнопку Готово, и после завершения объединения укажите имя файла и расположение для новой объединённой книги (см. скриншот).
8. Затем нажмите кнопку Сохранить. В появившемся окне подтверждения вы можете открыть книгу, нажав Да, или закрыть его, нажав Нет (см. скриншот).
9. После этого вы можете сохранить этот сценарий или нет — решать вам (см. скриншот).
10. В итоге выбранные CSV-файлы будут импортированы в новую рабочую книгу, каждый на отдельном листе (см. скриншот).
Скачайте и начните использовать бесплатную пробную версию Kutools для Excel прямо сейчас!
Разделение книги на несколько отдельных файлов CSV / PDF / TXT / Файлы Excel
Иногда возникает необходимость разделить книгу на отдельные CSV-файлы. Для быстрого и простого выполнения этой задачи воспользуйтесь утилитой «Разделить книгу» из набора Kutools для Excel.
После установки Kutools для Excelвыполните следующие действия:
1. Нажмите KUTOOLS PLUS > Книга > Разделить книгу (см. скриншот).
2.В диалоговом окне Разделить книгу:
(1.) Укажите листы, которые хотите разделить;
(2.) Установите флажок Указать форматсохраненияи выберите нужный формат Тип файла;
(3.) Затем нажмите кнопку Разделить и укажите папку для сохранения отдельных файлов.
3. После этого нажмите кнопку ОК, чтобы начать разделение. Книга будет разделена на отдельные CSV-файлы в соответствии с вашими требованиями.
Скачайте и попробуйте бесплатную пробную версию Kutools для Excel прямо сейчас!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек