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 Sub

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

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.

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.