Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kunt u tekstbestanden naar Excel importeren als afzonderlijke bladen met originele namen in Excel?

Heeft u ooit geprobeerd om tekstbestanden naar Excel te importeren als afzonderlijke bladen met de oorspronkelijke namen van de bestanden in Excel? In dit artikel introduceer ik een VBA-code om snel tekstbestanden van één map naar Excel te importeren met de namen.
doc importeer tekst als originele naam 1

Importeer tekstbestanden naar Excel met namen

Snel meerdere werkbladen in Excel in een afzonderlijke werkmap splitsen

In Microsoft Excel kunt u een werkblad opslaan of splitsen vanuit een werkmap als een nieuw Excel-bestand door dit werkblad te kopiëren en in een nieuwe werkmap te plakken. Het lijkt lastig, als u elk blad / werkblad van een grote werkmap wilt splitsen als afzonderlijke Excel-, txt-, csv-, pdf-bestanden. Maar met Kutools for Excel's Werkboek splitsen utility, je kunt er snel mee omgaan. Klik voor gratis proefperiode van 60 dagen!
doc gesplitst werkboek 1
Kutools voor Excel: met meer dan 200 handige Excel-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Importeer tekstbestanden naar Excel met namen

1. Schakel Excel in, druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster en klik vervolgens op bijvoegsel > module.
doc importeer tekst als originele naam 2

2. Kopieer en plak onderstaande code in de module scripts.

VBA: tekstbestanden met namen importeren

Sub LoadPipeDelimitedFiles () 'UpdatebyExtendoffice20181010 Dim xStrPath As String Dim xFileDialog As FileDialog Dim xFile As String Dim xCount As long Dim xWS As Worksheet On Error GoTo ErrHandler Set xFileDialog = Application.FileDialog (msoFileDialogFolderPicker) xFileDialog.AllowMultiSelect = False xFileDialog.Title = "Selecteer een map [Kutools voor Excel] "Als xFileDialog.Show = -1 Vervolgens xStrPath = xFileDialog.SelectedItems (1) End If If xStrPath =" "Then Exit Sub Application.ScreenUpdating = False xFile = Dir (xStrPath &" \ *. txt ") Do While xFile <>" "xCount = xCount + 1 Set xWS = Sheets (xCount) xWS.Select xWS.Name =" TEXT "& Left (xFile, Len (xFile) - 4) Met 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 voor Excel" Einde Sub

3. druk op F5 om de code uit te voeren, selecteer dan een map die tekstbestanden bevat die u naar Excel wilt importeren in de Selecteer een map dialoogvenster.
doc importeer tekst als originele naam 3

4. klikken OK, de tekstbestanden in de map zijn in Excel geïmporteerd als een enkel blad met hun eigen namen.


Met tabbladen bladeren en bewerken van meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Verken 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster en eenvoudig kunt schakelen tussen deze documenten door op hun tabbladen te klikken.
Klik voor gratis proefversie van Office Tab!

Blader door documenten met meerdere woorden in één venster als Firefox

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.