Hvordan gemmes hvert ark som separat tekstfil fra en projektmappe?
Når du vil gemme et regneark som tekstfil, kan du bruge Excels Gem som-funktion til at gemme regnearket som en tekstfil. Men hvis du vil gemme hvert ark i en projektmappe som en separat tekstfil, skal trinene i Gem som irritere dig. Her introducerer jeg nogle interessante tricks til dig til hurtigt at løse dette kedelige job i Excel.
Gem et ark som tekstfil med VBA
Gem hvert ark i en projektmappe som separat tekstfil med Kutools til Excel 
Eksportér et arkark som tekstfil med Kutools til Excel
Gem et ark som tekstfil med VBA
Hvis du ikke kan lide at bruge funktionen Gem som til at gemme ark som tekstfil, kan du bruge VBA-kode.
1. Aktiver det ark, du vil gemme som tekstfil.
2. Trykke Alt + F11 taster, der skal vises Microsoft Visual Basic til applikationer vindue.
3. klik indsatte > Moduler fra vinduet, og indsæt derefter under VBA-koden i modulet.
VBA: Gem ark som tekstfil.
Sub SaveSheetToTxt()
'Updateby20150910
Dim xRet As Long
Dim xFileName As Variant
On Error GoTo ErrHandler:
xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
If xFileName = False Then Exit Sub
If Dir(xFileName) <> "" Then
xRet = MsgBox("File '" & xFileName & "' exists. Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
If xRet <> vbYes Then
Exit Sub
Else
Kill xFileName
End If
End If
ActiveSheet.Copy
ActiveWorkbook.SaveAs xFileName, xlUnicodeText
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Close False
End If
My_Exit:
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
End Sub4. klik Kør knappen for at udføre koden, og derefter i Kutools til Excel i dialogboksen, vælg en mappe for at placere tekstfilen, og angiv et navn til tekstfilen. Se skærmbillede:
5. klik Gem. Nu gemmes det aktive ark som tekstfil.
Tip: med VBA kan du kun gemme et ark som tekstfil på én gang.
Gem hvert ark i en projektmappe som separat tekstfil med Kutools til Excel
Hvis du har en stor projektmappe med hundredvis af ark, der er nødvendige for at gemme i separate tekstfiler, spilder VBA-metoden også tid. I dette tilfælde kan du prøve at bruge Kutools til Excel's Opdelt arbejdsbog at håndtere dette job, hvilket vil give dig en uventet overraskelse.
| Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Aktivér den projektmappe, du vil gemme dens ark som uafhængige tekstfiler, og klik derefter på Kutools Plus > Workbook > Opdelt arbejdsbog. Se skærmbillede:
2. i Opdelt arbejdsbog i dialogboksen, skal du vælge de ark, du vil opdele og gemme som tekstfiler, som standard er alle ark markeret og derefter kontrollere Angiv gemme format, og vælg Unicode-tekst (*. Txt) nedenunder rulleliste. Se skærmbillede:
3. klik Dele, og vælg derefter en mappe, som tekstfilerne skal placeres fra Gennemse for mappe dialog. Se skærmbillede:
4. klik OK. Nu gemmes hvert ark i projektmappen som en separat tekstfil i den valgte mappe.
Med Opdelt arbejdsbog of Kutools til Excel, kan du opdele en projektmappe og gemme dem som separate xls-filer, xlsx-filer, PDF-filer eller CSV-filer, Klik her for at vide mere om dette værktøj.
Klik her for at downloade gratis Kutools til Excel
Eksportér et arkark som tekstfil med Kutools til Excel
Med Kutools til Excel, kan du også eksportere et udvalg af et ark som tekstfil ved hjælp af dets Eksporter rækkevidde til fil.
| Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg et eller de områder, du vil gemme som tekstfil, og klik på Kutools Plus > Import / Export > Eksporter rækkevidde til fil. Se skærmbillede:
2. Kontroller derefter i poppedialogen Unicode-tekst mulighed under filformat sektion, og gå derefter til Tekst muligheder sektion for at kontrollere en indstilling, som du har brug for, og vælg derefter en gemt placering.
3. klik Ok. Navngiv nu den eksporterede tekstfil i popping Eksporter rækkevidde til fil dialogboksen, og klik på OK .
Indtil videre er markeringen eksporteret som en separat tekstfil.
Der er mere end 120 værktøjer i Kutools til Excel, for at installere det og have en 60-dages prøveperiode, så kan du muligvis finde mange ikke-drømte nyttige funktioner.
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!
