Jak rychle hromadně importovat více souborů CSV / Text / XML v aplikaci Excel?

V aplikaci Excel jste možná svázali uložení sešitu jako soubor CSV, textový soubor nebo soubor XML, ale zkusili jste někdy importovat více souborů CSV / text / XML ze složky do sešitu nebo listu? V tomto článku představuji některé metody, jak je rychle hromadně importovat.

Importujte více textových souborů ze složky do každého listu sešitu pomocí VBA

Chcete-li importovat textové soubory ze složky do sešitu, můžete jej rychle zpracovat pomocí VBA níže.

1. Povolte prázdný sešit a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte VBA do Modul okno.

VBA: Importujte všechny textové soubory ze složky do sešitu

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. lis F5 nebo Běh tlačítko pro spuštění VBA a v rozbalovacím dialogovém okně vyberte složku, ze které chcete importovat textové soubory. Viz screenshot:

4. A klikněte OKa každý textový soubor ve vybrané složce byl importován do jednoho listu aktivního sešitu. Viz snímek obrazovky:

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Importujte více souborů CSV ze složky do jednoho listu pomocí VBA

Chcete-li importovat všechny soubory CSV ze složky do jednoho listu, můžete použít níže uvedený kód VBA.

1. Povolte prázdný list a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložit pod VBA do nového Modul okno.

VBA: Importujte soubory CSV ze složky do jednoho listu

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. lis F5 klíč nebo klik Běh tlačítko pro spuštění VBA a objeví se dialogové okno pro výběr složky, ze které chcete importovat všechny soubory CSV. Viz screenshot:

4. cvaknutí OK, a objeví se dialogové okno, které vám připomene, pokud před importem vyčistíte obsah aktivního listu, zde kliknu Ano. Viz snímek obrazovky:

po kliknutí Ano, všechny soubory CSV ve vybrané složce se importují do aktuálního listu a umístí data ze sloupce A doprava. Viz screenshot:

Tip: Chcete-li soubory CSV umístit vodorovně do listu, můžete použít níže uvedený 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 

Importujte více souborů XML ze složky do jednoho listu pomocí VBA

Pokud chcete importovat všechny soubory XML ze složky do jednoho listu, můžete použít níže uvedený kód VBA.

1. Vyberte prázdný list, do kterého chcete umístit importovaná data, a stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte kód VBA do Modul okno.

VBA: Importujte soubory XML ze složky do listu.

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. cvaknutí Běh nebo F5 klíč ke spuštění VBA a v rozbalovacím dialogovém okně vyberte složku, viz screenshot:

4. cvaknutí OKa všechny soubory XML ve vybrané složce se importují do aktivního listu.

Importujte nebo kombinujte více souborů XML / CSV do listu nebo sešitu pomocí Kutools pro Excel

Pokud nejste obeznámeni s VBA, dělejte si starosti, zde představuji užitečný nástroj - Kutools pro Excel pro tebe. S jeho silným Kombinovat nástroj, můžete rychle kombinovat více souborů XML nebo CSV do jednoho sešitu nebo jednoho listu aplikace Excel.

Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)

1. Aktivní Excel a klepněte na Kutools Plus > Kombinovat. Viz screenshot ：

2. A v krok 1 kombinace dialogové okno, vyberte jednu možnost oddělení, jak potřebujete Viz snímek obrazovky:

3. cvaknutí další jít do krok 2 kombinace, Klepněte na tlačítko přidat přidat soubory z různých složek nebo soubory z jedné složky do Cvičebnice seznamu a také můžete určit listy, ze kterých chcete kombinovat Pracovní list seznam pravé části. Viz screenshot:

4. cvaknutí další do posledního kroku Kombinovata můžete určit možnosti kombajnu.

5. cvaknutí úprava, objeví se dialogové okno, které vám připomene, abyste vybrali místo pro uložení nového kombinovaného výsledku. Viz snímek obrazovky:

6. cvaknutí Uložit. Všechny přidané listy byly sloučeny do nového jediného listu.

Tip: S Kombinovat, můžete také kombinovat více Soubory CSV vytvořit více složek nebo jednu složku do jednoho listu nebo sešitu.

Exportujte každý list jako csv / text / pdf do složky pomocí Kutools pro Excel

Pokud chcete exportovat každý list jako soubor csv / text / pdf do složky, Kutools pro ExcelJe Rozdělit sešit nástroj vám může udělat laskavost.

Po bezplatné stažení a instalace Kutools pro Excel, prosím, postupujte takto:

1. Povolte sešit, do kterého chcete exportovat jeho listy, a klikněte na Kutools Plus > Cvičebnice > Rozdělit sešit. Viz snímek obrazovky:

2. V Rozdělit sešit V dialogovém okně můžete zkontrolovat názvy listů, které potřebujete exportovat, ve výchozím nastavení jsou všechny listy zaškrtnuty a zkontrolovat Určete formát uložení a z níže uvedeného rozevíracího seznamu vyberte formát souboru, který chcete uložit. Viz screenshot:

3. cvaknutí Rozdělit a vyberte složku, do které chcete rozdělené soubory uložit do souboru Vyhledejte složku dialog, viz screenshot:

4. cvaknutí OK, nyní jsou všechny zaškrtnuté listy exportovány jako nový formát souboru do vybrané složky.

Relativní články:

• Jak převést hypertextový odkaz na prostý text v aplikaci Excel?
• Jak převést desetinné číslo na binární / osmičkové / hexadecimální číslo nebo naopak v aplikaci Excel?
• Jak vložit aktuální směnný kurz do Excelu?