Hur sparar jag, exporterar flera / alla ark till separata csv- eller textfiler i Excel?
När du använder Excel kan du manuellt spara ett kalkylblad som en csv- eller textfil genom att använda funktionen Spara som. Men för att konvertera flera eller alla kalkylblad i en arbetsbok till separerade csv- eller textfiler, hur kan du göra? I den här artikeln kommer vi att visa dig metoder för att spara eller konvertera flera eller alla ark till separerade csv- eller textfiler.
Spara, exportera eller konvertera alla ark till csv- eller textfil med VBA-kod
Spara, exportera eller konvertera flera / alla ark till csv eller textfil med Kutools för Excel
Spara, exportera eller konvertera alla ark till csv- eller textfil med VBA-kod
Med nedanstående VBA-koder kan du spara alla kalkylblad i en arbetsbok till separata csv- eller textfiler. Gör så här.
Exportera eller konvertera alla ark till csv-filer
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic-applikation fönster.
2. I Microsoft Visual Basic-applikation fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in följande kod i Modulerna fönster.
VBA-kod: Exportera alla ark till separata csv-filer
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
3. tryck på F5 för att köra koden. Du ser att alla exporterade csv-filer finns på Dokument mapp. Se skärmdump:
Exportera eller konvertera alla ark till textfiler
Följande kod kan hjälpa dig att exportera eller konvertera alla ark i arbetsboken till separata textfiler.
VBA-kod: Exportera alla ark till separata textfiler
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
De exporterade textfilerna finns också på Dokument mapp. Se skärmdump:
Spara, exportera eller konvertera flera / alla ark till csv eller textfil med Kutools för Excel
YDu kan snabbt exportera eller konvertera flera eller alla ark till enskilda csv-filer, textfiler eller xls-filer i Excel med Dela arbetsbok nytta av Kutools för Excel.
Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.
1. klick Kutools Plus > Arbetsbok > Dela arbetsbok. Se skärmdump:
2. I Dela arbetsbok dialog ruta:
- 1). Om du vill konvertera alla ark till csv- eller textfiler, behåll bara alla arknamn markerade i Kalkylbladets namn låda; Om du bara vill konvertera flera ark fortsätter du att kontrollera dem och avmarkera andra ark som du inte vill konvertera.
- 2). I Tillbehör avsnitt, kolla på Spara som och välj sedan Unicode-text (*. Txt) or CSV (Macintosh) (*. Csv) från rullgardinsmenyn.
- 3). Klicka på Split knapp.
3. I Bläddra för mapp i dialogrutan, ange en mapp för att spara de exporterade filerna och klicka sedan på OK knapp.
Nu konverteras alla ark eller angivna ark till separata csv- eller textfiler och lokaliseras i mappen som du angav ovan.
Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.
Spara, exportera eller konvertera flera / alla ark till csv eller textfil med Kutools för Excel
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!