Hvordan kan jeg hurtigt batchimportere flere csv / tekst / xml-filer i Excel?

I Excel har du muligvis bundet til at gemme en projektmappe som csv-fil, tekstfil eller xml-fil, men har du nogensinde prøvet at importere flere csv / text / xml-filer fra en mappe til en projektmappe eller et regneark? I denne artikel introducerer jeg nogle metoder til hurtig batchimport af dem.

Importer flere tekstfiler fra en mappe til hvert regneark i en projektmappe med VBA

Hvis du vil importere tekstfiler fra en mappe til en projektmappe, kan du bruge nedenstående VBA til hurtigt at håndtere den.

1. Aktivér en tom projektmappe, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt VBA til Moduler vindue.

VBA: Importer alle tekstfiler fra en mappe til en projektmappe

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. Trykke F5 nøgle eller Kør knap for at køre VBA, og vælg en mappe, som du vil importere tekstfilerne fra, i pop-op-dialogboksen. Se skærmbillede:

4. Og klik OK, og hver tekstfil i den valgte mappe er blevet importeret til et regneark i den aktive projektmappe. Se skærmbillede:

Lås op for Excel Magic med Kutools AI

• Smart udførelse: Udfør cellehandlinger, analyser data og opret diagrammer – alt sammen drevet af simple kommandoer.
• Brugerdefinerede formler: Generer skræddersyede formler for at strømline dine arbejdsgange.
• VBA kodning: Skriv og implementer VBA-kode uden besvær.
• Formel fortolkning: Forstå komplekse formler med lethed.
• Tekstoversættelse: Bryd sprogbarrierer i dine regneark.

Forbedre dine Excel-funktioner med AI-drevne værktøjer. Hent nu og oplev effektivitet som aldrig før!

Importer flere csv-filer fra en mappe til et enkelt ark med VBA

For at importere alle csv-filer fra en mappe til et enkelt ark, kan du bruge nedenstående VBA-kode.

1. Aktivér et tomt regneark, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt under VBA i den nye Moduler vindue.

VBA: Importer csv-filer fra en mappe til et regneark

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. Trykke F5 tast eller klik Kør knap for at udføre VBA, og der vises en dialogboks for at vælge en mappe, som du vil importere alle csv-filer fra. Se skærmbillede:

4. klik OK, og der vises en dialogboks for at minde dig om hvis rydde indholdet af det aktive regneark inden import, her klikker jeg Ja. Se skærmbillede:

Efter at have klikket Ja, importeres alle csv-filer i den valgte mappe til det aktuelle ark og placerer data fra kolonne A til højre. Se skærmbillede:

Tip: Hvis du vil placere csv-filer vandret i et regneark, kan du bruge nedenstående 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 

Importer flere xml-filer fra en mappe til et enkelt ark med VBA

Hvis du vil importere alle XML-filer fra en mappe til et enkelt ark, kan du bruge nedenstående VBA-kode.

1. Vælg et tomt ark, du vil placere de importerede data på, og tryk på Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, indsæt VBA-kode i Moduler vindue.

VBA: Importer XML-filer fra en mappe til et regneark.

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. klik Kør knappen eller F5 nøgle til at køre VBA, og vælg en mappe i poppedialogen, se skærmbillede:

4. klik OK, og alle XML-filer i den valgte mappe importeres til det aktive ark.

Importer eller kombiner flere xml / csv-filer til et ark eller en projektmappe med Kutools til Excel

Hvis du ikke er fortrolig med VBA, skal du være bekymret, her introducerer jeg et praktisk værktøj - Kutools til Excel for dig. Med sin kraftfulde Kombiner værktøj, kan du hurtigt kombinere flere xml-filer eller csv-filer i en projektmappe eller et Excel-ark.

Efter installation Kutools til Excel, gør venligst som nedenfor:（Gratis download Kutools til Excel nu!)

1. Aktiv Excel, og klik Kutools Plus > Kombiner. Se skærmbillede ：

2. Og i trin 1 i Kombiner dialog, skal du vælge en separationsmulighed efter behov. Se skærmbillede:

3. klik Næste at tage til trin 2 i Kombinerklik Tilføj for at tilføje filer fra forskellige mapper eller filer fra en mappe til Workbook liste, og du kan også angive de ark, du vil kombinere fra Arbejdsark liste over højre sektion. Se skærmbillede:

4. klik Næste til det sidste trin i Kombiner, og du kan angive kombinationsindstillingerne.

5. klik Finish, vises en dialogboks, der minder dig om at vælge en placering for at gemme det nye kombinerede resultat. Se skærmbillede:

6. klik Gem. Alle tilføjende ark er blevet kombineret til et nyt enkelt ark.

Tip: Med Kombiner, kan du også kombinere flere CSV-filer danne flere mapper eller en mappe i et ark eller en projektmappe.

Eksporter hvert ark som csv / tekst / pdf til en mappe med Kutools til Excel

Hvis du vil eksportere hvert ark som csv / tekst / pdf-fil til en mappe, Kutools til Excel's Opdelt arbejdsbog værktøj kan gøre en tjeneste for dig.

Efter gratis download og installation Kutools til Excel, gør venligst som nedenfor:

1. Aktivér den projektmappe, du vil eksportere dens regneark, og klik på Kutools Plus > Workbook > Opdelt arbejdsbog. Se skærmbillede:

2. i Opdelt arbejdsbog dialog, kan du kontrollere de arknavne, du har brug for at eksportere, som standard er alle arkene kontrolleret og kontrolleret Angiv gemme format og vælg det filformat, du vil gemme fra nedenstående rulleliste. Se skærmbillede:

3. klik Dele og vælg en mappe, der skal gemme de delte filer i Søg efter mappe dialog, se skærmbillede:

4. klik OK, nu eksporteres alle de markerede ark som nyt filformat i den valgte mappe.

Relative artikler:

• Hvordan konverteres hyperlink til almindelig tekst i Excel?
• Hvordan konverteres decimaltal til binært / oktalt / hex-tal eller omvendt i Excel?
• Hvordan indsættes live valutakurs i Excel?