Hur sparar jag varje ark som separat textfil från en arbetsbok?
När du vill spara ett kalkylark som textfil kan du använda Excels funktion Spara som för att spara kalkylbladet som en textfil. Men om du vill spara varje ark i en arbetsbok som en separat textfil måste stegen i Spara som irritera dig. Här introducerar jag några intressanta knep för att snabbt lösa detta tråkiga jobb i Excel.
Spara ett ark som textfil med VBA
Spara varje ark i en arbetsbok som separat textfil med Kutools för Excel
Exportera ett urval av ark som textfil med Kutools för Excel
Spara ett ark som textfil med VBA
Om du inte vill använda funktionen Spara som för att spara ark som textfil kan du använda VBA-kod.
1. Aktivera arket du vill spara som textfil.
2. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.
3. klick Insert > Modulerna från fönstret och klistra sedan in under VBA-koden i modulen.
VBA: Spara ark som textfil.
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 Sub
4. klick Körning för att köra koden och sedan i Kutools för Excel Välj en mapp för att lägga in textfilen och ange ett namn för textfilen. Se skärmdump:
5. klick Save. Nu sparas det aktiva arket som textfil.
Dricks: med VBA kan du bara spara ett ark som textfil samtidigt.
Spara varje ark i en arbetsbok som separat textfil med Kutools för Excel
Om du har en stor arbetsbok med hundratals ark som behövs för att spara i separata textfiler är VBA-metoden också bortkastad. I det här fallet kan du försöka använda Kutools för ExcelÄr Dela arbetsbok att hantera det här jobbet, vilket ger dig en oväntad överraskning.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
Efter gratis installation Kutools för Excel, gör så här:
1. Aktivera arbetsboken du vill spara dess ark som oberoende textfiler och klicka sedan på Kutools Plus > Arbetsbok > Dela arbetsbok. Se skärmdump:
2. I Dela arbetsbok väljer du de ark du vill dela och sparar som textfiler. Som standard är alla ark markerade och markerar sedan Ange spara format, och välj Unicode-text (*. Txt) nedifrån listrutan. Se skärmdump:
3. klick Splitoch välj sedan en mapp att lägga textfilerna från Bläddra för mapp dialog. Se skärmdump:
4. klick OK. Nu sparas varje ark i arbetsboken som en separat textfil i den valda mappen.
Med Dela arbetsbok of Kutools för Excel, kan du dela en arbetsbok och spara dem som separata xls-filer, xlsx-filer, PDF-filer eller CSV-filer, klicka här för att veta mer om det här verktyget.
Klicka här för att ladda ner gratis Kutools för Excel
Exportera ett urval av ark som textfil med Kutools för Excel
Med Kutools för Excel, kan du också exportera ett urval av ett ark som textfil med hjälp av dess Exportera intervall till fil.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
Efter gratis installation Kutools för Excel, gör så här:
1. Välj ett intervall eller intervall som du vill spara som textfil och klicka på Kutools Plus > Import / Export > Exportera intervall till fil. Se skärmdump:
2. Kontrollera sedan i poppdialogen Unicode Text alternativet under filformat avsnittet, gå sedan till Textalternativ avsnittet för att kontrollera ett alternativ efter behov och välj sedan en sparande plats.
3. klick Ok. Namnge nu den exporterade textfilen i popping Exportera intervall till fil dialogrutan och klicka på OK knapp.
Hittills har valet exporterats som en separat textfil.
Det finns mer än 120 verktyg Kutools för Excel, för att installera den och ha en 60-dagars provperiod, då kan du hitta många odrömda användbara funktioner.
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!