With nedenfor VBA koder, kan du lagre alle regnearkene i en arbeidsbok til separert CSV eller tekstfiler. Vennligst gjør som følger.
Export eller konvertere alle ark til CSV-filer
en. Trykk ALT + F11 tastene samtidig for å åpne Microsoft Visual Basic programvinduet.
2. I Microsoft Visual Basic programvinduet, klikker du Sett > Modul. Deretter kopiere og lime inn følgende kode i Module vinduet
VBA-kode. Eksporter alle arkene adskilt csv-filer
Sub ExportSheetsToCSV () Dim xWs Som Regneark Dim xcsvFile As String for hver xWs I Application.ActiveWorkbook.Worksheets xWs .Copy xcsvFile = CurDir & "\\" &Amp; xWs.Name & ".csv" Application.ActiveWorkbook.SaveAs Name: = xcsvFile, _ filformatet: = xlCSV, CreateBackup: = False Application.ActiveWorkbook.Saved = True Application.ActiveWorkbook.Close NextEnd Sub3. Trykk F5 for å kjøre koden. Du vil se alle eksporteres csv-filer er plassert på Dokumenter-mappen. Se skjermbilde:
Export eller konvertere alle ark til tekstfiler
følgende kode kan hjelpe deg til å eksportere eller konvertere alle ark i arbeidsboken til separerte tekstfiler
VBA-kode. Eksporter alle arkene skilles tekstfiler
Sub ExportSheetsToText () Dim xWs Som Regneark Dim xTextFile As String for hver xWs I Application.ActiveWorkbook.Worksheets xWs.Copy xTextFile = CurDir & "\\" &Amp; xWs.Name & ".txt" Application.ActiveWorkbook.SaveAs Name: = xTextFile, filformatet: = xlText Application.ActiveWorkbook.Saved = True Application.ActiveWorkbook.Close NextEnd SubThe eksportert Tekstfiler er også plassert på Dokumenter-mappen. Se skjermbilde:
Lagre, eksportere eller konvertere flere /alle ark til csv eller tekstfil med Kutools for Excel
Etter gratis Installere Kutools for Excel, kan du raskt eksportere eller konvertere flere eller alle ark . til enkelt csv-filer, tekstfiler eller xls filer format i Excel med Split arbeidsbok verktøyet
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 1. Klikk Enterprise > Arbeidsbok > Split arbeidsbok. Se skjermbilde:
to. I Split arbeidsbok dialogboksen:
1). Hvis du ønsker å konvertere alle ark til CSV eller tekstfiler, bare holde alle ark navnene sjekket i regneark navn boksen; Hvis du bare ønsker å konvertere flere ark, fortsette å se dem, og kommer til å fjerne avkryssing andre ark som du ikke ønsker å konvertere.
2). I Valg-delen, merk av Angi spare format, og velg deretter Unicode tekst (*. Txt) eller CSV (Macintosh) (*. Csv) fra rullegardinlisten.
3). Klikk på Del-knappen.
Gratis Last ned Kutools for Excel Nå
3. I Bla For dialogboksen Mappe boksen, angi en mappe for å lagre de eksporterte filene, og klikk deretter på OK-knappen.
Nå er alle ark eller spesifisert ark er konvertert til separert CSV eller tekstfiler, og finne på mappen som du har angitt ovenfor.
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå!