? Hvordan lagre hvert ark som separat tekstfil fra en arbeidsbok

If du ikke liker å bruke Lagre som funksjonen for å spare ark som tekstfil, kan du bruke VBA-kode
Kutools for Excel. Med mer enn 120 hendig Excel -ins, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Aktiver arket du ønsker å lagre som tekstfil.
2. Trykk ALT + F11-tastene for å vise Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul fra vinduet, og deretter lime inn under VBA kode til modulen
VBA. Spar ført som tekstfil
Sub SaveSheetToTxt () 'Updateby20150910 Dim xRet As Long Dim xFileName As Variant On Error GoTo ErrHandler. XFileName = Application.GetSaveAsFilename (ActiveSheet.Name, "txt-fil (* .txt), * .txt", "Kutools for Excel") Hvis xFileName = False Then Exit Sub Hvis Dir (xFileName) < > "" Så xRet = MsgBox ("Fil" "& xFileName &" "eksisterer Overskriv", vbYesNo + vbExclamation, "Kutools for Excel".?) Hvis xRet < > vbYes deretter avslutte Sub Else Kill xFileName End If End If ActiveSheet.Copy ActiveWorkbook.SaveAs xFileName, xlUnicodeText Hvis ActiveWorkbook.Name < > ThisWorkbook.Name Så ActiveWorkbook.Close False End IfMy_Exit: Exit SubErrHandler: MsgBox Err.Description, "Kutools for Excel" End Sub


fire. Klikk Kjør for å kjøre koden, og deretter i Kutools for dialog Excel, velger du en mappe for å sette tekstfilen, og angi et navn for tekstfilen. Se skjermbilde:
5. Klikk på Lagre. Nå det aktive arket er lagre som tekstfil
. Tips: med VBA, du bare kan redde ett ark som tekstfil på en gang tid

Lagre hvert ark av en arbeidsbok som separat tekstfil med Kutools. for Excel
Hvis du har en stor arbeidsbok med hundrevis av ark som er nødvendig for å lagre til separate tekstfiler, er VBA metoden også tidsbortkastet. I dette tilfellet, kan du prøve å bruke Kutools for Excel Split arbeidsbok for å håndtere med denne jobben, som vil gi deg en uventet overraskelse
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Aktiver arbeidsboken du vil lagre sine ark som uavhengige tekstfiler, og klikk deretter på Enterprise > Arbeidsbok > Split arbeidsbok. Se skjermbilde:
to. I dialogboksen Split arbeidsbok, merker arkene du ønsker å dele og lagre som tekstfiler, i standard er alle arkene valgt, og deretter sjekke Angi lagringsformat, og velg Unicode tekst (*. Txt) nedenfra nedtrekkslisten. Se skjermbilde:
tre. Klikk Split, og velg deretter en mappe for å sette tekstfiler fra Browse For dialog mappe. Se skjermbilde:
4. Klikk på OK. Nå hvert ark i arbeidsboken lagres som en separat tekstfil i den valgte mappen.
Med Split arbeidsbok av Kutools for Excel, kan du dele en arbeidsbok og lagre dem som separate xls filer, xlsx filer, PDF-filer eller CSV-filer Klikk her for å vite mer om dette verktøyet.
Klikk her for å gratis laste ned Kutools for Excel

Eksportere et utvalg av ark som tekstfil med Kutools for Excel
Med Kutools for Excel, kan du også eksportere et utvalg av et ark som tekstfil ved hjelp av sin Export Range til fil
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Velg et område eller områder du ønsker å lagre som tekstfil, og klikk Enterprise > Import /Export > Export Range til fil. Se skjermbilde:
to. Så i det dukker dialog, sjekk Unicode Text alternativ under Filformat delen, så gå til Tekst alternativer delen for å sjekke et alternativ som du trenger, og velg deretter en besparelse plassering
3.. Klikk på OK. Nå navngi den eksport tekstfil i spratt Export Range til fil dialogboksen, og klikk på OK-knappen.
Så langt utvalget har blitt eksportert som en separat tekstfil.
Det er mer enn 120 verktøy i Kutools for Excel, for å installere det og har en 60-dagers prøveperiode, så du kan finne mange uante nyttige funksjoner.
Klikk her for å gratis laste ned Kutools for Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser