Как быстро импортировать несколько файлов 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 Sub
3. Нажмите F5 ключа или Run кнопку, чтобы запустить VBA, и выберите папку, из которой вы хотите импортировать текстовые файлы, в появившемся диалоговом окне. Смотрите скриншот:
4. И нажмите OK, и каждый текстовый файл в выбранной папке был импортирован на один рабочий лист активной книги. Смотрите скриншот:
Легко объединяйте несколько листов / книгу в один лист или рабочую книгу
|
Объединение нескольких листов или книг в один лист или книгу может быть удобно в Excel, но с Сочетать Функция в Kutools for Excel, вы можете объединить десятки листов / книг в один лист или книгу, а также вы можете объединить листы в один только несколькими щелчками мыши. Нажмите, чтобы получить 30-дневную полнофункциональную пробную версию! |
Kutools for Excel: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 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 Sub
3. Нажмите 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 Sub
3. Нажмите 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. Нажмите Split и выберите папку для сохранения разделенных файлов в Найдите папку диалог, см. снимок экрана:
4. Нажмите OK, теперь все отмеченные листы экспортируются как новый формат файла в выбранную папку.
Экспорт каждого листа как одного файла XML / CSV / TXT / PDF
Относительные статьи:
- Как преобразовать гиперссылку в обычный текст в Excel?
- Как преобразовать десятичное число в двоичное / восьмеричное / шестнадцатеричное число или наоборот в Excel?
- Как вставить текущий курс обмена в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!