Excel: Shranite ali izvozite vse liste v ločene datoteke CSV ali besedilne datoteke (2 preprosta načina)

Delo z Excelovimi delovnimi zvezki, ki vsebujejo več delovnih listov, je običajno pri analizi podatkov in poslovnem poročanju. Pogosto boste morali vsak list izvoziti kot posamezno datoteko CSV (vrednosti, ločene z vejico) ali besedilno datoteko za skupno rabo podatkov, integracijo z drugimi sistemi ali za namene arhiviranja. Čeprav Excel ne ponuja vgrajene funkcije »izvozi vse liste«, obstaja več učinkovitih metod za izvedbo te naloge.

Shranite ali izvozite vse liste v CSV ali besedilne datoteke s kodo VBA
Shranite ali izvozite vse / določene liste v CSV ali besedilne datoteke s Kutools za Excel

Shranite ali izvozite vse liste v CSV ali besedilne datoteke s kodo VBA

S spodnjimi kodami VBA lahko vse delovne liste v delovnem zvezku shranite v ločene datoteke CSV ali besedilne datoteke. Prosimo, naredite naslednje.

Izvozite ali pretvorite vse liste v ločene datoteke CSV

1. Pritisnite druga + F11 tipke hkrati, da odprete Aplikacija Microsoft Visual Basic okno.

2. V Ljubljani Aplikacija Microsoft Visual Basic okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite naslednjo kodo v Moduli okno.

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. Pritisnite F5 tipko za zagon kode. Videli boste, da se vse izvožene datoteke CSV nahajajo na dokumenti mapo. Vsak delovni list je shranjen kot ločena datoteka .csv z istim imenom kot list. Oglejte si posnetek zaslona:

Izvozite ali pretvorite vse liste v ločene besedilne datoteke

Naslednja koda vam lahko pomaga pri izvozu ali pretvorbi vseh listov v delovnem zvezku v ločene besedilne datoteke.

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

Izvožene besedilne datoteke se nahajajo tudi na dokumenti mapo. Oglejte si posnetek zaslona:

Shranite ali izvozite vse / določene liste v CSV ali besedilne datoteke s Kutools za Excel

Kutools za Excel ponuja zmogljivo in uporabniku prijazno funkcijo za hiter izvoz vseh ali izbranih delovnih listov v posamezne CSV ali besedilne datoteke z le nekaj kliki.

1. klik Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek. Oglejte si posnetek zaslona:

2. V Ljubljani Razdeljeni delovni zvezek pogovorno okno:

• 1). Če želite vse liste pretvoriti v datoteke CSV ali besedilne datoteke, imejte vsa imena listov označena v Ime delovnega lista škatla; Če želite samo pretvoriti več listov, jih še naprej preverjajte in počistite polja, ki jih ne želite pretvoriti.
• 2). V možnosti odsek, preverite Shrani kot vrsto in nato izberite Besedilo Unicode (*. Txt) or CSV (Macintosh) (*. Csv) s spustnega seznama.
• 3). Kliknite Split gumb.

3. V Ljubljani Brskaj po mapi v pogovornem oknu določite mapo, v katero želite shraniti izvožene datoteke, in nato kliknite OK gumb.

Zdaj so vsi listi ali določeni listi pretvorjeni v ločene datoteke CSV ali besedilne datoteke in jih poiščite v mapi, kot ste navedli zgoraj.

Demo: Shranite, izvozite ali pretvorite več/vseh listov v CSV ali besedilne datoteke s Kutools za Excel