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ájlt importálhat vagy kombinálhat egy lapba vagy egy munkafüzetbe a Kutools for Excel programmal
Exportálja az egyes lapokat csv / text / pdf formátumban egy mappába a Kutools for Excel programmal
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ó a Kutools for Excel programban, több tucat lap / munkafüzet egyesítését egyetlen lapba vagy munkafüzetbe vonhatja össze, és csak több kattintással egyesítheti a lapokat eggyé. Kattintson a teljes funkcionalitásért 30 napos ingyenes próbaverzió! |
![]() |
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen kipróbálható, korlátozás nélkül 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ájlt importálhat vagy kombinálhat egy lapba vagy egy munkafüzetbe a Kutools for Excel programmal
Ha még nem ismeri a VBA-t, akkor aggódjon, itt bemutatok egy praktikus eszközt - Kutools az Excel számára 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 az Excel számára, 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álja az egyes lapokat csv / text / pdf formátumban egy mappába a Kutools for Excel programmal
Ha minden egyes lapot csv / text / pdf fájlként szeretne exportálni egy mappába, Kutools az Excel számára'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 termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Az Office fül a füles felületet hozza 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!


































