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.

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.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

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!

Tovább ... Ingyenes letöltés... Vásárlás...