Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti ali izvoziti vsak list v CSV / PDF datoteko v Excelu?

Na primer imate veliko delovno knjigo z več listi in želite, da vsak list shranite ali izvozite kot posamezno .csv datoteko ali datoteko PDF, kako hitro in enostavno naredite to? V tem članku bom predstavil več metod za njegovo rešitev.

Shranite ali izvozite vsak list v datoteko CSV / PDF s funkcijo Save As

Paket shranite ali izvozite vsak list v datoteko CSV z VBA

Batch shranite ali izvozite vsak list v CSV / PDF datoteko s programsko opremo Kutools for Excel

Batch pretvori več Excelovih datotek v PDF v Excelu


Kot veste, lahko Microsoft Excel shranjuje trenutni delovni list kot posamezno datoteko .csv ali datoteko PDF. Zato lahko vsak list shranite ali izvozite kot datoteko .csv ali datoteko PDF ročno.

1. Preklopite na listo, ki jo boste shranili ali izvozili kot posamezno datoteko .csv in kliknite file (ali Gumb »Office«)> Shrani kot.

2. V pogovornem oknu odpiranja navedite ciljno mapo, v katero shranite datoteko .csv, kliknite na Shrani kot vrsto polje in izberite CSV (z vejico) (* .csv) or PDF (* .pdf) na spustnem seznamu in kliknite na Shrani gumb.

3. Obstajata dve zaporedni opozorilni pogovorni okno. Prosimo, kliknite OK > Da.

Opomba: Če shranite aktivni delovni list v datoteko PDF, se ti pogovorni okviri ne bodo pojavili. Samo pojdite na naslednji korak.

4. Ponovite nad korakom 1-3, da shranite druge liste kot posamezne datoteke .csv enega po enega.


Če obstaja več listov, ki jih želite shraniti ali izvoziti kot datoteke .csv, bo prva metoda dolgotrajna in dolgočasna. Ta VBA lahko poenostavlja delo in olajša shranjevanje ali izvoz vsakega lista v datoteko .csv.

1. Pritisnite druga + F11 hkrati odpreti okno Microsoft Visual Basic for Application.

2. klik Vstavi > Moduliin nato prilepite po kodi VBA v novo okno modula.

VBA: shranite vsak list kot posamezno datoteko CSV

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 Sub
3. Kliknite Run gumb ali pritisnite F5 ključ za zagon te VBA.

4. V pogovornem oknu za brskanje za začetek iskanja določite ciljno mapo, v katero shranite vse .csv datoteke in kliknite OK gumb.

Potem boste videli, da je vsak list shranjen / izvožen kot posamezna datoteka .csv v določeni ciljni mapi.


Nekateri uporabniki Excela lahko zaradi nekaterih razlogov zavrnejo kodo VBA. Ne skrbi! Tretja metoda lahko tudi paketno shrani ali izvozi vsak list v obliki datoteke .csv ali datoteke PDF brez težav Delovni zvezek Split uporabnost Kutools za Excel.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

1. Kliknite Podjetje > Delovni zvezek > Delovni zvezek Split.

doc vsak list v csv 2

2. V pogovornem oknu za delovni zvezek Split,

doc vsak list v csv 8

(1) Izbirajte vse liste. Če ne, lahko potrdite polje pred tem Ime delovnega lista izbrati vse liste;

(2) Preverite Določite format za shranjevanje možnost;

(3) Kliknite spodnje polje Določite format za shranjevanje in izberite CSV (Macintosh) (*. Csv) or PDF (* .pdf) s spustnega seznama.

(4) Kliknite na Split gumb.

Opombe: Če obstajajo skrivne in prazne delovne liste v vašem delovnem zvezku, preverite Preskoči skrite delovne liste polje in Preskoči prazen delovni list polje bo pri izvozu prezrlo vse prazne ali skrite liste.

Kutools za Excel - Vključuje več kot priročna orodja Excel za 300. Celotna brezplačna preizkusna različica 60-dan, brez kreditne kartice! Get it now!

3. V pogovornem oknu brskalnika Browse for Folder podajte ciljno mapo, v katero boste shranili vso datoteko .csv ali datoteko PDF in kliknite OK gumb.

Zdaj boste videli, da se vsak list izvozi in shrani kot posamezna datoteka .csv v navedeni mapi.


V tem videoposnetku Kutools in zavihek Kutools Plus zavihek doda Kutools za Excel. Če je potrebno, kliknite tukaj da brezplačno brezplačno preizkusite 60-dan!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    Copied and pasted the VBA script. On pressing F5, the system highlighted the word "sheet" in the first line, and gave the error "Compile error: Expected: end of statement"


    Mmmph.
  • To post as a guest, your comment is unpublished.
    Pav · 2 years ago
    Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature?

    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 Sub
    • To post as a guest, your comment is unpublished.
      Sriraj · 27 days ago
      ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False