Hogyan lehet gyorsan kötegelni több csv / text / xml fájl importálását az Excel programban?
Az Excel programban lehet, hogy megkötötte a munkafüzet csv fájlként, szövegfájlként vagy xml fájlként történő mentését, de megpróbált már több csv / text / xml fájlt importálni egy mappából egy munkafüzetbe vagy munkalapba? Ebben a cikkben bemutatok néhány módszert azok gyors kötegelt importálására.
Több szövegfájlt importálhat egy mappából a VBA-val ellátott munkafüzet minden munkalapjára
Több csv fájlt importálhat egy mappából egyetlen lapra a VBA segítségével
Több xml fájlt importálhat egy mappából egyetlen lapra a VBA segítségével
Több xml/csv fájl importálása vagy kombinálása egy munkalapba vagy munkafüzetbe Kutools for Excel
Exportáljon minden lapot csv/text/pdf formátumban egy mappába a következővel: Kutools for Excel
Több szövegfájlt importálhat egy mappából a VBA-val ellátott munkafüzet minden munkalapjára
Szöveges fájlok importálásához egy mappából egy munkafüzetbe a VBA alatt gyorsan kezelheti.
1. Engedélyezze az üres munkafüzetet, majd nyomja meg az gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a VBA-t a Modulok ablak.
VBA: Minden szövegfájl importálása egy mappából egy munkafüzetbe
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. nyomja meg F5 kulcs vagy futás gombot a VBA futtatásához, és a felbukkanó párbeszédpanelen válassza ki a mappát, ahonnan importálni szeretné a szöveges fájlokat. Lásd a képernyőképet:
4. És kattintson OK, és a kiválasztott mappában lévő minden szövegfájlt importálta az aktív munkafüzet egy munkalapjába. Lásd a képernyőképet:


Kombináljon több lapot / munkafüzetet egyetlen lapba vagy munkafüzetbe
|
A többszörös munkalapok vagy munkafüzetek egyetlen lapba vagy munkafüzetbe való egyesítése nehéz lehet az Excel programban, de a Kombájn funkciója Kutools for Excel, akkor több tucat lapot/munkafüzetet egyesíthet egyetlen lapba vagy munkafüzetbe, továbbá a lapokat egyetlen kattintással egyesítheti. Kattintson a teljes funkcionalitásért 30 napos ingyenes próbaverzió! |
![]() |
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, korlátozás nélkül kipróbálható 30 nap. |
Több csv fájlt importálhat egy mappából egyetlen lapra a VBA segítségével
Ha az összes csv fájlt egy mappából egyetlen lapba kívánja importálni, használhatja a VBA kód alatt.
1. Engedélyezzen egy üres munkalapot, majd nyomja meg az gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a VBA alá az újba Modulok ablak.
VBA: Csv fájlok importálása egy mappából egy munkalapba
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. nyomja meg F5 vagy kattintson futás gombra kattintva hajthatja végre a VBA-t, és megjelenik egy párbeszédpanel egy mappa kiválasztásához, amelyből az összes csv fájlt importálni szeretné. Lásd a képernyőképet:
4. kettyenés OK, és megjelenik egy párbeszédpanel, amely emlékezteti Önt, ha importálás előtt törli az aktív munkalap tartalmát, itt kattintsak Igen. Lásd a képernyőképet:
Kattintás után Igen, a kiválasztott mappában található összes csv fájl importálódik az aktuális munkalapba, és az adatokat az A oszlopból jobbra helyezi. Lásd a képernyőképet:


Tipp: Ha a csv fájlokat vízszintesen szeretné elhelyezni egy munkalapon, használhatja a VBA alatt.
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
Több xml fájlt importálhat egy mappából egyetlen lapra a VBA segítségével
Ha az összes XML fájlt egy mappából egyetlen lapra kívánja importálni, használhatja a VBA kód alatt.
1. Jelöljön ki egy üres lapot, ahová el szeretné helyezni az importált adatokat, majd nyomja meg a gombot Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, illessze be a VBA kódot a Modulok ablak.
VBA: XML fájlok importálása egy mappából egy munkalapba.
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. kettyenés futás gombot vagy F5 gombot a VBA futtatásához, és válasszon egy mappát a felbukkanó párbeszédpanelen, lásd a képernyőképet:
4. kettyenés OK, és a kiválasztott mappában található összes XML-fájlt importálja az aktív munkalapba.
Több xml/csv fájl importálása vagy kombinálása egy munkalapba vagy munkafüzetbe Kutools for Excel
Ha még nem ismeri a VBA-t, akkor aggódjon, itt bemutatok egy praktikus eszközt - Kutools for Excel neked. A hatalmas Kombájn segédprogrammal gyorsan kombinálhat több xml fájlt vagy csv fájlt egy munkafüzetbe vagy egy Excel munkalapba.
Kutools for Excel, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. | ||
Telepítése után Kutools for Excel, kérjük, tegye az alábbiak szerint:(Ingyenes letöltés Kutools for Excel Most!)
1. Aktív Excel, és kattintson a gombra Kutools Plus > Kombájn. Képernyőkép megtekintése :
2. És a a Combine 1. lépése párbeszédpanelen válasszon egy elválasztási opciót, amire szüksége van. Lásd a képernyőképet:
3. kettyenés Következő menni a Combine 2. lépésekettyenés hozzáad fájlok hozzáadásához különféle mappákból vagy fájlok egy mappából a Munkafüzet listát, és megadhatja azokat a lapokat is, amelyekből kombinálni szeretne Munkalap jobb oldali rész listája. Lásd a képernyőképet:
4. kettyenés Következő utolsó lépéséig Kombájn, és megadhatja a kombinációs opciókat.
5. kettyenés befejez, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy válasszon egy helyet az új kombinált eredmény mentéséhez. Lásd a képernyőképet:
6. kettyenés Megtakarítás. Az összes hozzáadott lapot egy új lapra egyesítettük.
Tipp: Val vel Kombájn, akkor is kombinálhat több CSV fájlok több mappát vagy egy mappát formázhat egy lapba vagy munkafüzetbe.
Egyesítsen több XML / CVS fájlt egy lapba / munkafüzetbe
Exportáljon minden lapot csv/text/pdf formátumban egy mappába a következővel: Kutools for Excel
Ha minden egyes lapot csv / text / pdf fájlként szeretne exportálni egy mappába, Kutools for Excel'S Felosztott munkafüzet segédprogram tehet egy szívességet az Ön számára.
Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:
1. Engedélyezze a munkafüzetet, amelybe exportálni szeretné a munkalapokat, majd kattintson a gombra Kutools Plus > Munkafüzet > Felosztott munkafüzet. Lásd a képernyőképet:
2. Ban,-ben Felosztott munkafüzet párbeszédpanelen ellenőrizheti az exportálandó lapneveket, alapértelmezés szerint az összes lap be van jelölve, és ellenőrizze Adja meg a mentési formátumot és az alábbi legördülő listából válassza ki a menteni kívánt fájlformátumot. Lásd a képernyőképet:
3. kettyenés Hasított és válasszon ki egy mappát, amelybe az osztott fájlokat a Keresse meg a Mappa elemet párbeszédpanel, lásd a képernyőképet:
4. kettyenés OK, most az összes bejelölt lap új fájlformátumként kerül exportálásra a kiválasztott mappába.
Minden lap exportálása egyetlen XML / CSV / TXT / PDF fájlként
Relatív cikkek:
- Hogyan lehet konvertálni a hiperhivatkozást egyszerű szöveggé az Excelben?
- Hogyan konvertálhatjuk a decimális számot bináris / oktális / hexa számra vagy fordítva az Excelben?
- Hogyan lehet az élő árfolyamot beilleszteni az Excelbe?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!















