Hur importerar jag flera textfiler till flera ark?
Antag att det finns flera textfiler i en mapp på din dator, nu vill du importera dessa textfiler till en Excel-arbetsbok och placera varje textfil i separata kalkylblad. Att kopiera och klistra in varje textfil i kalkylbladet en efter en kommer att slösa mycket tid, här kan jag prata om några knep för dig att lösa detta problem.
Importera flera textfiler till separata kalkylblad med VBA-kod
Dela en arbetsbok till flera separata text / pdf / csv / xlsx filer med Kutools för Excel
Importera flera textfiler till separata kalkylblad med VBA-kod
Följande VBA-kod kan hjälpa dig att importera varje textfil till separata ark i en ny arbetsbok samtidigt, gör så här:
1. Håll ner ALT + F11 tangenter i Excel för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Importera flera textfiler till separata kalkylblad:
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. Efter att ha klistrat in ovanstående kod, tryck på F5 nyckel för att köra den här koden, och i det poppade fönstret, ange mappen som innehåller textfilerna, gå till mappen för att välja textfilerna du vill importera till kalkylbladet, se skärmdump:
4. Klicka sedan Öppen knappen har alla markerade textfiler importerats till en ny arbetsbok och varje fil finns i ett kalkylblad individuellt.
5. Äntligen kan du spara den nya arbetsboken efter behov.
Dela en arbetsbok till flera separata text / pdf / csv / xlsx filer med Kutools för Excel
Ibland kan du behöva göra några motsatta operationer av ovanstående uppgift, det vill säga du måste dela en arbetsbok för att separera textfiler. Kutools för ExcelÄr Dela arbetsbok verktyget kan hjälpa dig att lösa detta jobb snabbt och enkelt.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör så här :( Gratis nedladdning Kutools för Excel nu! )
1. Aktivera arbetsboken som du vill dela till flera textfiler.
2. Klicka Företag > Arbetsbok > Dela arbetsbok, se skärmdump:
3. I Dela arbetsbok dialog ruta:
(1.) Kontrollera kalkylblad som du vill dela upp.
(2.) Kontrollera Ange spara format, välj sedan filformatet som du vill spara, till exempel kan du välja Text, csv, pdf, xlsx or XLS filformat som du behöver.
(3.) Klicka sedan på Split , i följande rutan anger du en mapp för att mata ut de separata filerna.
 |
 |
 |
4. Klicka sedan OK knappen och dina valda kalkylblad delas upp och sparas i önskad mapp med det format som du behöver.
Gratis nedladdning Kutools för Excel nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
