Hvordan importeres flere tekstfiler til flere ark?
Antag, der er flere tekstfiler i en mappe på din computer, nu vil du importere disse tekstfiler til en Excel-projektmappe og placere hver tekstfil i separate regneark. Kopiering og indsættelse af hver tekstfil til regnearket en efter en spilder masser af tid, her kan jeg tale om nogle tricks til dig for at løse dette problem.
Importer flere tekstfiler til separate regneark med VBA-kode
Opdel en projektmappe til flere separate tekst / pdf / csv / xlsx filer med Kutools til Excel
Importer flere tekstfiler til separate regneark med VBA-kode
Følgende VBA-kode kan hjælpe dig med at importere hver tekstfil til separate ark i en ny projektmappe på én gang. Gør som følger:
1. Hold nede ALT + F11 nøgler i Excel for at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Importer flere tekstfiler til separate regneark:
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. Når du har indsat ovenstående kode, skal du trykke på F5 nøgle til at køre denne kode, og i det poppede vindue skal du angive den mappe, der indeholder tekstfilerne, gå til mappen for at vælge de tekstfiler, du vil importere til regnearkene, se skærmbillede:
4. Klik derefter på Åbne knap, er alle de valgte tekstfiler importeret til en ny projektmappe, og hver fil er placeret i et regneark individuelt.
5. Endelig kan du gemme den nye projektmappe, som du har brug for.
Opdel en projektmappe til flere separate tekst / pdf / csv / xlsx filer med Kutools til Excel
Nogle gange skal du muligvis udføre nogle modsatte operationer af ovenstående opgave, det vil sige, du skal dele en projektmappe for at adskille tekstfiler. Kutools til Excel's Opdelt arbejdsbog hjælpeprogram kan hjælpe dig med at løse dette job hurtigt og nemt.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excel, gør venligst som følger :( Gratis download Kutools til Excel nu! )
1. Aktivér den projektmappe, du vil opdele i flere tekstfiler.
2. Klik Enterprise > Workbook > Opdelt arbejdsbog, se skærmbillede:
3. I Opdelt arbejdsbog dialog boks:
(1.) Kontroller de regneark, du vil opdele.
(2.) Kontroller Angiv gemme format, vælg derefter det filformat, du vil gemme, for eksempel kan du vælge txt, csv, pdf, xlsx or xls filformat, som du har brug for.
(3.) Klik derefter på Dele knap, i den følgende promptboks skal du angive en mappe til output af de separate filer.
4. Klik derefter på OK knappen, og dine valgte regneark bliver delt og gemt i den ønskede mappe med det format, som du har brug for.
Gratis download Kutools til Excel nu!
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!