Как быстро импортировать несколько файлов csv / text / xml в Excel?
В Excel вам, возможно, приходилось сохранять книгу как файл csv, текстовый файл или файл xml, но пробовали ли вы когда-нибудь импортировать несколько файлов csv / text / xml из папки в книгу или рабочий лист? В этой статье я расскажу о некоторых методах их быстрого пакетного импорта.
Импортируйте несколько текстовых файлов из папки на каждый лист книги с помощью VBA
Импортируйте несколько файлов CSV из папки на один лист с помощью VBA
Импортируйте несколько файлов xml из папки на один лист с помощью VBA
Импортируйте или объедините несколько файлов xml / csv в лист или книгу с помощью Kutools for Excel 
Экспортируйте каждый лист как csv / text / pdf в папку с помощью Kutools for Excel
Импортируйте несколько текстовых файлов из папки на каждый лист книги с помощью VBA
Чтобы импортировать текстовые файлы из папки в книгу, вы можете использовать приведенный ниже VBA для быстрой обработки.
1. Включите пустую книгу и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте VBA в Модули окно.
VBA: импортировать все текстовые файлы из папки в книгу
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. Нажмите F5 ключа или Run кнопку, чтобы запустить VBA, и выберите папку, из которой вы хотите импортировать текстовые файлы, в появившемся диалоговом окне. Смотрите скриншот:
4. И нажмите OK, и каждый текстовый файл в выбранной папке был импортирован на один рабочий лист активной книги. Смотрите скриншот:
Легко объединяйте несколько листов / книгу в один лист или рабочую книгу
|
| Объединение нескольких листов или книг в один лист или книгу может быть удобно в Excel, но с Сочетать Функция в Kutools for Excel, вы можете объединить десятки листов / книг в один лист или книгу, а также вы можете объединить листы в один только несколькими щелчками мыши. Нажмите для полнофункционального 30 дней бесплатного пробного периода! |
 |
| Kutools for Excel: с более чем удобными надстройками Excel 300, которые можно попробовать бесплатно без ограничений в 30 дней. |
Импортируйте несколько файлов CSV из папки на один лист с помощью VBA
Чтобы импортировать все файлы CSV из папки на один лист, вы можете использовать приведенный ниже код VBA.
1. Включите пустой рабочий лист и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте ниже VBA в новый Модули окно.
VBA: импорт файлов CSV из папки в один рабочий лист
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. Нажмите F5 ключ или щелкните Run кнопку для выполнения VBA, и появится диалоговое окно для выбора папки, из которой вы хотите импортировать все CSV-файлы. Смотрите скриншот:
4. Нажмите OK, и появится диалоговое окно, напоминающее вам, если очистить содержимое активного листа перед импортом, здесь я нажимаю Да. Смотрите скриншот:
После нажатия кнопки Да, все CSV-файлы в выбранной папке импортируются в текущий лист и помещают данные из столбца A справа. Смотрите скриншот:
Наконечник: Если вы хотите разместить файлы CSV горизонтально на листе, вы можете использовать ниже VBA.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Импортируйте несколько файлов xml из папки на один лист с помощью VBA
Если вы хотите импортировать все файлы XML из папки на один лист, вы можете использовать приведенный ниже код VBA.
1. Выберите чистый лист, на который вы хотите поместить импортированные данные, и нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модуливставьте код VBA в Модули окно.
VBA: импорт XML-файлов из папки в рабочий лист.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. Нажмите Run или F5 ключ для запуска VBA и выберите папку в диалоговом окне, см. снимок экрана:
4. Нажмите OK, и все файлы XML в выбранной папке будут импортированы в активный лист.
Импортируйте или объедините несколько файлов xml / csv в лист или книгу с помощью Kutools for Excel
Если вы не знакомы с VBA, беспокойтесь, здесь я представляю удобный инструмент - Kutools for Excel для вас. С его мощным Сочетать утилиту, вы можете быстро объединить несколько файлов xml или csv в одну книгу или один лист Excel.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. | ||
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Active Excel и щелкните Кутулс Плюс > Сочетать. Смотрите скриншот ：
2. А в шаг 1 комбинирования В диалоговом окне выберите нужный вариант разделения. Смотрите скриншот:
3. Нажмите Далее идти на шаг 2 комбинирования, нажмите Добавить добавлять файлы из разных папок или файлы из одной папки в Workbook список, а также вы можете указать листы, которые хотите объединить из Рабочий лист список правого раздела. Смотрите скриншот:
4. Нажмите Далее до последнего шага Сочетать, и вы можете указать параметры комбинирования.
5. Нажмите Завершить, появится диалоговое окно с напоминанием о выборе места для сохранения нового комбинированного результата. Смотрите скриншот:
6. Нажмите Сохраните. Все добавляемые листы были объединены в новый единый лист.
Наконечник: Работы С Нами Сочетать, вы также можете объединить несколько Файлы CSV сформировать несколько папок или одну папку в один лист или книгу.
Объединение нескольких файлов XML / CVS в один лист / книгу
Экспортируйте каждый лист как csv / text / pdf в папку с помощью Kutools for Excel
Если вы хотите экспортировать каждый лист как файл csv / text / pdf в папку, Kutools for ExcelАвтора Разделить книгу Утилита может оказать вам услугу.
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Включите книгу, листы которой вы хотите экспортировать, и нажмите Кутулс Плюс > Workbook > Разделить книгу. Смотрите скриншот:
2. в Разделить книгу в диалоговом окне вы можете проверить имена листов, которые нужно экспортировать, по умолчанию все листы отмечены, и проверить Укажите формат сохранения и выберите формат файла, который вы хотите сохранить, в раскрывающемся списке ниже. Смотрите скриншот:
3. Нажмите Трещина и выберите папку для сохранения разделенных файлов в Найдите папку диалог, см. снимок экрана:
4. Нажмите OK, теперь все отмеченные листы экспортируются как новый формат файла в выбранную папку.
Экспорт каждого листа как одного файла XML / CSV / TXT / PDF
Относительные статьи:
- Как преобразовать гиперссылку в обычный текст в Excel?
- Как преобразовать десятичное число в двоичное / восьмеричное / шестнадцатеричное число или наоборот в Excel?
- Как вставить текущий курс обмена в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
