Hvordan gemmes eller eksporteres hvert ark som CSV / PDF-fil i Excel?
For eksempel har du en stor projektmappe med flere ark, og du vil gemme eller eksportere hvert ark som en individuel .csv-fil eller PDF-fil, hvordan får du det gjort nemt og hurtigt? I denne artikel vil jeg introducere flere metoder til at løse det.
- Gem eller eksporter hvert ark som CSV / PDF-fil med funktionen Gem som
- Batch gemme eller eksportere hvert ark som CSV-fil med VBA
- Batch gemme eller eksportere hvert ark som CSV / PDF-fil med Kutools til Excel
Gem eller eksporter hvert ark som CSV / PDF-fil med funktionen Gem som
Som du ved, kan Microsoft Excel gemme det aktuelle regneark som en individuel .csv-fil eller PDF-fil. Derfor kan du gemme eller eksportere hvert ark som .csv-fil eller PDF-fil en efter en manuelt.
1. Skift til det ark, du vil gemme eller eksportere som en individuel .csv-fil, og klik på File (Felt) (eller Kontorknap)> Gem som.
2. I åbningsdialogboksen skal du angive den destinationsmappe, som du vil gemme .csv-filen i, klikke på Filtype boks og vælg CSV (kommasepareret) (* .csv) or PDF (* .pdf) på rullelisten, og klik på Gem .
3. Der vises to advarselsdialogbokse successivt. Klik venligst OK > Ja.
Bemærk: Hvis du gemmer aktivt regneark som PDF-fil, vises disse dialogbokse ikke. Bare gå videre til næste trin.
4. Gentag ovenstående trin 1-3 for at gemme andre ark som individuelle .csv-filer en efter en.
Batch gemme eller eksportere hvert ark som CSV-fil med VBA
Hvis der er et antal ark, som du vil gemme eller eksportere som .csv-filer, vil den første metode være ret tidskrævende og kedelig. Denne VBA kan forenkle arbejdet og gøre det let at gemme eller eksportere hvert ark som .csv-fil.
1. Trykke andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikation.
2. klik indsatte > Moduler, og indsæt derefter følgende VBA-kode i det nye modulvindue.
VBA: Gem hvert ark som en individuel CSV-fil
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub4. I den åbne dialogboks Gennemse skal du angive den destinationsmappe, som alle CSV-filer skal gemmes i, og klikke på OK .
Derefter vil du se, at hvert ark gemmes / eksporteres som en individuel .csv-fil i den angivne destinationsmappe.
Batch gemme eller eksportere hvert ark som CSV / PDF-fil med Kutools til Excel
Nogle Excel-brugere kan afvise VBA-kode af nogle grunde. Vær ikke urolig! Den tredje metode kan også batch-gemme eller eksportere hvert ark som .csv-fil eller PDF-fil let ved hjælp af Opdelt arbejdsbog nytte af Kutools til Excel.
Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu
1. Klik på Enterprise > Workbook > Opdelt arbejdsbog.
2. I dialogboksen Split arbejdsbog åbnes,
(1) Bliv ved med at vælge alle ark. Hvis ikke, kan du markere afkrydsningsfeltet før Navn på regneark at vælge alle ark
(2) Kontroller Angiv gemme format mulighed;
(3) Klik på feltet nedenfor Angiv gemme format valg og vælg CSV (Macintosh) (*. Csv) or PDF (* .pdf) fra drop down listen.
(4) Klik på Dele .
Bemærk: Hvis der findes skjulte og tomme regneark i din projektmappe, skal du kontrollere Spring skjulte regneark over boks og Spring over tomt regneark feltet ignorerer alle blanke eller skjulte ark under eksport.
Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu
3. I den åbne dialogboks Gennemse mappe skal du angive den destinationsmappe, som du vil gemme alle .csv-filer eller PDF-filer i, og klikke på OK .
Nu vil du se hvert ark eksporteres og gemmes som en individuel .csv-fil i den angivne mappe.
Demo: Gem eller eksporter hvert ark som CSV / PDF-fil i Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
