Як швидко пакетно імпортувати декілька файлів csv / text / xml в Excel?
У програмі Excel ви, можливо, зв’язані, щоб зберегти книгу як файл CSV, текстовий файл або XML-файл, але чи намагались ви коли-небудь імпортувати кілька файлів CSV / text / XML із папки в книгу чи аркуш? У цій статті я представляю деякі методи швидкого пакетного імпорту.
Імпортуйте кілька текстових файлів із папки на кожний аркуш книги з VBA
Імпортуйте кілька файлів CSV з папки на один аркуш за допомогою VBA
Імпортуйте кілька файлів xml із папки на один аркуш за допомогою VBA
Імпортуйте або об’єднуйте кілька файлів xml/csv в аркуш або робочу книгу за допомогою Kutools for Excel 
Експортуйте кожен аркуш як csv/текст/pdf до папки з Kutools for Excel
Імпортуйте кілька текстових файлів із папки на кожний аркуш книги з VBA
Щоб імпортувати текстові файли з папки до книги, ви можете скористатися нижче VBA, щоб швидко обробити це.
1. Увімкніть порожню книгу та натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модуліта вставте 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 ключ або прогін , щоб запустити 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. клацання Insert > Модулі, і вставте нижче 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 клавішу або клацніть прогін для запуску 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. клацання Insert > Модулі, вставте код 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. клацання прогін кнопка або 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. Активний Excel і натисніть Kutools Plus > Поєднувати. Див. Скріншот:
2. І в крок 1 Combine діалоговому вікні, виберіть один із варіантів розділення, як вам потрібно. Дивіться знімок екрана:
3. клацання Далі для переходу до крок 2 комбайна, Натисніть додавати щоб додати файли з різних папок або файли з однієї папки в робочий зошит списку, а також ви можете вказати аркуші, з яких ви хочете об'єднати Робочий аркуш список правого розділу. Дивіться знімок екрана:
4. клацання Далі до останнього кроку Поєднувати, і ви можете вказати параметри комбінування.
5. клацання обробка, спливає діалогове вікно, щоб нагадати вам про вибір місця для збереження нового комбінованого результату. Дивіться знімок екрана:
6. клацання зберегти. Усі додані аркуші об’єднані в новий єдиний аркуш.
Порада: з Поєднувати, Ви також можете поєднувати декілька Файли CSV формуйте декілька папок або одну папку на одному аркуші або в книзі.
Об’єднайте кілька файлів XML / CVS в один аркуш / книгу
Експортуйте кожен аркуш як csv/текст/pdf до папки з Kutools for Excel
Якщо ви хочете експортувати кожен аркуш як файл csv / text / pdf до папки, Kutools for ExcelАвтора Роздільна робоча книга утиліта може зробити для вас послугу.
після безкоштовна установка Kutools for Excel, будь ласка, виконайте наведені нижче дії:
1. Увімкніть книгу, для якої потрібно експортувати її аркуші, та натисніть Kutools Plus > робочий зошит > Роздільна робоча книга. Дивіться знімок екрана:
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, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
