Як швидко пакетно імпортувати декілька файлів csv / text / xml в Excel?
У програмі Excel ви, можливо, зв’язані, щоб зберегти книгу як файл CSV, текстовий файл або XML-файл, але чи намагались ви коли-небудь імпортувати кілька файлів CSV / text / XML із папки в книгу чи аркуш? У цій статті я представляю деякі методи швидкого пакетного імпорту.
Імпортуйте кілька текстових файлів із папки на кожний аркуш книги з VBA
Імпортуйте кілька файлів CSV з папки на один аркуш за допомогою VBA
Імпортуйте кілька файлів xml із папки на один аркуш за допомогою VBA
Імпорт або об’єднання кількох файлів xml/csv в аркуш або робочу книгу за допомогою Kutools для Excel
Експортуйте кожен аркуш як csv/текст/pdf до папки за допомогою Kutools для 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 Sub
3. прес F5 ключ або прогін , щоб запустити VBA, і виберіть діалогове вікно, в яке потрібно імпортувати текстові файли. Дивіться знімок екрана:
4. І клацніть OK, а кожен текстовий файл у вибраній папці імпортовано на один аркуш активної книги. Дивіться знімок екрана:
Легко об’єднайте кілька аркушів / робочу книгу в один аркуш або книгу
|
Об'єднання кількох аркушів або книг в один аркуш або книгу може бути непростим в Excel, але з Поєднувати функція в Kutools для Excel, ви можете об’єднати десятки аркушів/робочих книг в один аркуш або робочу книгу, також ви можете об’єднати аркуші в один лише кількома клацаннями. Натисніть, щоб отримати повнофункціональну 30-денну безкоштовну пробну версію! |
Kutools для 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 Sub
3. прес 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 Sub
3. клацання прогін кнопка або F5 клавішу для запуску VBA і виберіть папку в діалоговому вікні, що з’явиться, див. знімок екрана:
4. клацання OK, а всі файли XML у вибраній папці імпортуються в активний аркуш.
Імпорт або об’єднання кількох файлів xml/csv в аркуш або робочу книгу за допомогою Kutools для Excel
Якщо ви не знайомі з VBA, хвилюйтеся, тут я представляю вам зручний інструмент - Kutools для Excel для вас. З його потужним Поєднувати Утиліта, ви можете швидко об'єднати кілька файлів XML або CSV-файлів в одну книгу або один аркуш Excel.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. | ||
після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)
1. Активний Excel і натисніть Kutools Plus > Поєднувати. Див. Скріншот:
2. І в крок 1 Combine діалоговому вікні, виберіть один із варіантів розділення, як вам потрібно. Дивіться знімок екрана:
3. клацання МАЙБУТНІ для переходу до крок 2 комбайна, Натисніть додавати щоб додати файли з різних папок або файли з однієї папки в робочий зошит списку, а також ви можете вказати аркуші, з яких ви хочете об'єднати Робочий аркуш список правого розділу. Дивіться знімок екрана:
4. клацання МАЙБУТНІ до останнього кроку Поєднувати, і ви можете вказати параметри комбінування.
5. клацання обробка, спливає діалогове вікно, щоб нагадати вам про вибір місця для збереження нового комбінованого результату. Дивіться знімок екрана:
6. клацання зберегти. Усі додані аркуші об’єднані в новий єдиний аркуш.
Порада: з Поєднувати, Ви також можете поєднувати декілька Файли CSV формуйте декілька папок або одну папку на одному аркуші або в книзі.
Об’єднайте кілька файлів XML / CVS в один аркуш / книгу
Експортуйте кожен аркуш як csv/текст/pdf до папки за допомогою Kutools для Excel
Якщо ви хочете експортувати кожен аркуш як файл csv / text / pdf до папки, Kutools для ExcelАвтора Роздільна робоча книга утиліта може зробити для вас послугу.
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Увімкніть книгу, для якої потрібно експортувати її аркуші, та натисніть Kutools Plus > робочий зошит > Роздільна робоча книга. Дивіться знімок екрана:
2 В Роздільна робоча книга діалогове вікно, ви можете перевірити назви аркушів, які вам потрібно експортувати, за замовчуванням всі аркуші перевіряються та перевіряють Вкажіть формат збереження і виберіть формат файлу, який потрібно зберегти, як показано нижче, у розкривному списку. Дивіться знімок екрана:
3. клацання розщеплений і виберіть папку для збереження розділених файлів у Знайдіть папку діалогове вікно, див. знімок екрана:
4. клацання OK, тепер усі перевірені аркуші експортуються як новий формат файлу у вибрану папку.
Експортуйте кожен аркуш як єдиний файл XML / CSV / TXT / PDF
Відносні статті:
- Як перетворити гіперпосилання на звичайний текст у Excel?
- Як перетворити десяткове число в двійкове / вісімкове / шістнадцяткове число або навпаки в Excel?
- Як вставити обмінний курс в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!