Hoe importeer ik meerdere tekstbestanden naar meerdere bladen?
Stel dat er meerdere tekstbestanden in een map van uw computer staan, u wilt deze tekstbestanden nu importeren in een Excel-werkmap en elk tekstbestand in afzonderlijke werkbladen plaatsen. Het een voor een kopiëren en plakken van elk tekstbestand naar het werkblad zal veel tijd verspillen, hier kan ik enkele trucs voor je bespreken om dit probleem op te lossen.
Importeer meerdere tekstbestanden om werkbladen met VBA-code te scheiden
Importeer meerdere tekstbestanden om werkbladen met VBA-code te scheiden
De volgende VBA-code kan u helpen om elk tekstbestand in één keer in afzonderlijke bladen in een nieuwe werkmap te importeren, doe dit als volgt:
1. Houd de ALT + F11 toetsen in Excel om het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: importeer meerdere tekstbestanden naar afzonderlijke werkbladen:
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. Druk na het plakken van de bovenstaande code op F5 sleutel om deze code uit te voeren, en geef in het uitgeklapte venster de map op die de tekstbestanden bevat, ga naar de map om de tekstbestanden te selecteren die u naar de werkbladen wilt importeren, zie screenshot:
4. Dan klikken Openen knop zijn alle geselecteerde tekstbestanden geïmporteerd in een nieuwe werkmap en elk bestand is afzonderlijk in één werkblad geplaatst.
5. Eindelijk kunt u de nieuwe werkmap opslaan zoals u nodig hebt.
Splits een werkmap in meerdere afzonderlijke tekst / pdf / csv / xlsx-bestanden met Kutools voor Excel
Soms moet u misschien een aantal tegengestelde bewerkingen van bovenstaande taak uitvoeren, dat wil zeggen dat u een werkmap moet splitsen om tekstbestanden te scheiden. Kutools for Excel's Werkmap splitsen hulpprogramma kan u helpen om deze taak snel en gemakkelijk op te lossen.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excel, doe dan als volgt :( Gratis download Kutools voor Excel nu! )
1. Activeer de werkmap die u in meerdere tekstbestanden wilt splitsen.
2. Klikken Enterprise > werkboek > Werkmap splitsen, zie screenshot:
3. In de Werkmap splitsen dialoog venster:
(1.) Vink de werkbladen aan die u wilt splitsen.
(2.) Controleer Geef het opslagformaat open kies vervolgens het bestandsformaat dat u wilt opslaan, u kunt bijvoorbeeld kiezen txt, csv, pdf, xlsx or xls bestandsformaat zoals je nodig hebt.
(3.) Klik vervolgens Split knop, geef in het volgende promptvenster een map op om de afzonderlijke bestanden uit te voeren.
4. Dan klikken OK knop, en uw geselecteerde werkbladen worden gesplitst en opgeslagen in de door u gewenste map met het formaat dat u nodig heeft.
Gratis download Kutools voor Excel nu!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!