Как бързо да импортирате пакетно множество csv/текст/xml файлове в Excel?
В Excel може да сте обвързали да запазите работна книга като csv файл, текстов файл или xml файл, но някога опитвали ли сте да импортирате множество csv/текст/xml файлове от папка в работна книга или работен лист? В тази статия представям някои методи за бързо групово импортиране.
Импортирайте множество текстови файлове от папка във всеки работен лист на работна книга с VBA
Импортирайте множество csv файлове от папка в един лист с VBA
Импортирайте множество xml файлове от папка в един лист с VBA
Импортирайте или комбинирайте множество xml/csv файлове в лист или работна книга с Kutools за Excel 
Експортирайте всеки лист като csv/текст/pdf в папка с Kutools за 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 или бягане бутон, за да стартирате VBA, и изберете папка, от която искате да импортирате текстовите файлове, в изскачащия диалогов прозорец. Вижте екранна снимка:
4. И щракнете OKи всеки текстов файл в избраната папка е импортиран в един работен лист на активната работна книга. Вижте екранна снимка:
Комбинирайте лесно няколко листа/работна книга в един единствен лист или работна книга
|
| Комбинирането на множество листове или работни книги в един лист или работна книга може да е досадно в Excel, но с Комбинирам функция в Kutools за Excel, можете да комбинирате обединяване на десетки листове/работни книги в един лист или работна книга, също така можете да консолидирате листовете в един само с няколко кликвания. Щракнете за пълнофункционален 30-дневен безплатен пробен период! |
 |
| Kutools за 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 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. кликване Поставете > Модули, поставете 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 за Excel
Ако не сте запознати с VBA, притеснявайте се, тук представям един удобен инструмент – Kutools за Excel за теб. Със своята мощна Комбинирам помощна програма, можете бързо да комбинирате множество xml файлове или csv файлове в една работна книга или един Excel лист.
| Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. | ||
След инсталиране Kutools за Excel, моля, направете следното:（Безплатно изтегляне Kutools за Excel сега!)
1. Активирайте Excel и щракнете Kutools плюс > Комбинирам. Вижте екранна снимка:
2. И в стъпка 1 от Комбиниране изберете една опция за разделяне според нуждите ви. Вижте екранна снимка:
3. кликване Напред да отидеш до стъпка 2 от Комбинацията, Щракнете върху Добави за добавяне на файлове от различни папки или файлове от една папка към Workbook списък, а също така можете да посочите листовете, от които искате да комбинирате Работен лист списък на дясната секция. Вижте екранна снимка:
4. кликване Напред до последната стъпка от Комбинирами можете да зададете опциите за комбиниране.
5. кликване завършеност, изскача диалогов прозорец, за да ви напомни да изберете място за запазване на новия комбиниран резултат. Вижте екранна снимка:
6. кликване Save. Всички листове за добавяне са комбинирани в нов единичен лист.
Съвет: с Комбинирам, можете също да комбинирате няколко CSV файлове формирайте няколко папки или една папка в един лист или работна книга.
Комбинирайте множество XML/CVS файлове в един лист/работна книга
Експортирайте всеки лист като csv/текст/pdf в папка с Kutools за Excel
Ако искате да експортирате всеки лист като csv/текст/pdf файл в папка, Kutools за ExcelЕ Разделена работна книга помощната програма може да направи услуга за вас.
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Активирайте работната книга, чиито работни листове искате да експортирате, и щракнете Kutools плюс > Workbook > Разделена работна книга. Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!
