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 run 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.

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.

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.