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
Importujte více souborů CSV ze složky do jednoho listu pomocí VBA
Importujte více souborů XML ze složky do jednoho listu pomocí VBA
Importujte nebo kombinujte více souborů XML / CSV do listu nebo sešitu pomocí Kutools pro Excel 
Exportujte každý list jako csv / text / pdf do složky pomocí Kutools pro Excel
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 Sub3. 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:
Snadno kombinujte více listů / sešit do jednoho listu nebo sešitu
|
| Kombinovat vícenásobné listy nebo sešity do jednoho listu nebo sešitu může být v aplikaci Excel náročné, ale s Kombinovat funkce v Kutools pro Excel, můžete kombinovat desítky listů / sešitů do jednoho listu nebo sešitu, také můžete sloučit listy do jednoho pouze několika kliknutími. Kliknutím získáte 30denní bezplatnou zkušební verzi s plnou výbavou! |
 |
| Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní. |
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 Sub3. 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 Sub3. 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.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. | ||
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.
Kombinujte více souborů XML / CVS do jednoho listu / 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 instalace zdarma 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.
Exportujte každý list jako jeden soubor XML / CSV / TXT / PDF
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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
