Jak importovat více textových souborů na více listů?
Předpokládejme, že ve složce vašeho počítače je více textových souborů. Nyní chcete tyto textové soubory importovat do sešitu aplikace Excel a umístit každý textový soubor do samostatných pracovních listů. Kopírováním a vkládáním každého textového souboru do listu po jednom ztratíte spoustu času, zde mohu mluvit o některých tricích, jak tento problém vyřešit.
Importujte více textových souborů do samostatných listů pomocí kódu VBA
Rozdělte sešit na několik samostatných textových / pdf / csv / xlsx souborů pomocí Kutools pro Excel
Importujte více textových souborů do samostatných listů pomocí kódu VBA
Následující kód VBA vám může pomoci importovat každý textový soubor do samostatných listů v novém sešitu najednou, postupujte takto:
1. Podržte ALT + F11 klávesy v aplikaci Excel k otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Import více textových souborů do samostatných listů:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Po vložení výše uvedeného kódu stiskněte F5 klíč ke spuštění tohoto kódu a ve vyskakovacím okně zadejte složku, která obsahuje textové soubory, přejděte do složky a vyberte textové soubory, které chcete importovat do pracovních listů, viz screenshot:
4. Pak klikněte na tlačítko Otevřená tlačítko, všechny vybrané textové soubory byly importovány do nového sešitu a každý soubor umístěn v jednom listu samostatně.
5. Nakonec můžete nový sešit uložit podle potřeby.
Rozdělte sešit na několik samostatných textových / pdf / csv / xlsx souborů pomocí Kutools pro Excel
Někdy možná budete muset provést některé opačné operace výše uvedeného úkolu, to znamená, že musíte rozdělit sešit a oddělit textové soubory. Kutools pro ExcelJe Rozdělit sešit vám pomůže rychle a snadno vyřešit tuto práci.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně :( Stažení zdarma Kutools pro Excel nyní! )
1. Aktivujte sešit, který chcete rozdělit do více textových souborů.
2, klikněte Enterprise > Cvičebnice > Rozdělit sešit, viz screenshot:
3. V Rozdělit sešit dialogové okno:
(1.) Zkontrolujte listy, které chcete rozdělit.
(2.) Zkontrolovat Určete formát uložení, poté vyberte formát souboru, který chcete uložit, například můžete zvolit txt, csv, pdf, XLSX or xls formát souboru, jak potřebujete.
(3.) Poté klikněte Rozdělit tlačítko, v následujícím okně výzvy zadejte složku, do které se mají vydávat samostatné soubory.
4. Pak klikněte na tlačítko OK tlačítko a vybrané listy se rozdělí a uloží do požadované složky ve formátu, jaký potřebujete.
Stažení zdarma Kutools pro Excel nyní!
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!