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
Importer flere csv-filer fra en mappe til et enkelt ark med VBA
Importer flere xml-filer fra en mappe til et enkelt ark med VBA
Importer eller kombiner flere xml / csv-filer til et ark eller en projektmappe med Kutools til Excel 
Eksporter hvert ark som csv / tekst / pdf til en mappe med Kutools til Excel
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 Sub3. 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:
Kombiner let flere ark / projektmappe i et enkelt ark eller en projektmappe
|
| At kombinere flere ark eller projektmapper til et ark eller en projektmappe kan være snedig i Excel, men med Kombiner funktion i Kutools til Excel, kan du kombinere flette snesevis af ark / projektmapper til et ark eller en projektmappe, og du kan også konsolidere arkene i et med flere klik. Klik for fuld 30 dages gratis prøveperiode! |
 |
| Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
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 Sub3. 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 Sub3. 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.
| Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. | ||
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.
Kombiner flere XML / CVS-filer i et ark / 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 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.
Eksporter hvert ark som enkelt XML / CSV / TXT / PDF-fil
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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
