Ինչպե՞ս պահպանել, արտահանել բազմաթիվ / բոլոր թերթերը Excel- ում առանձնացնել CSV կամ տեքստային ֆայլեր:

Excel-ից օգտվելիս կարող եք ձեռքով պահել աշխատաթերթը որպես csv կամ տեքստային ֆայլ՝ օգտագործելով Save As ֆունկցիան: Այնուամենայնիվ, աշխատանքային գրքում մի քանի կամ բոլոր աշխատաթերթերը տարանջատված csv կամ տեքստային ֆայլերի փոխարկելու համար, ինչպե՞ս կարող եք դա անել: Այս հոդվածում մենք ձեզ ցույց կտանք բազմաթիվ կամ բոլոր թերթերը առանձնացված csv կամ տեքստային ֆայլերի պահպանելու կամ փոխարկելու մեթոդներ:

Պահպանեք, արտահանեք կամ վերափոխեք բոլոր թերթերը csv կամ տեքստային ֆայլ VBA կոդով
Excel- ի համար Kutools- ով պահեք, արտահանեք կամ փոխեք բազմաթիվ / բոլոր թերթերը CSV կամ տեքստային ֆայլ

Պահպանեք, արտահանեք կամ վերափոխեք բոլոր թերթերը csv կամ տեքստային ֆայլ VBA կոդով

Ստորև ներկայացված VBA կոդերով դուք կարող եք աշխատանքային գրքում պահպանել բոլոր աշխատանքային թերթերը առանձնացված CSV կամ տեքստային ֆայլերում: Խնդրում եմ արեք հետևյալ կերպ.

Բոլոր թերթերը արտահանել կամ փոխարկել CSV ֆայլերի

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելված պատուհան.

2. Մեջ Microsoft Visual Basic հավելված պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք հետևյալ կոդը ՝ Մոդուլներ պատուհան.

VBA կոդ. Բոլոր թերթերը արտահանեք առանձնացված CSV ֆայլեր

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. Սեղմեք F5 ծածկագիրը գործելու համար: Դուք կտեսնեք, որ բոլոր արտահանված CSV ֆայլերը գտնվում են այստեղ Փաստաթղթեր թղթապանակ Տեսեք,

Բոլոր թերթերը արտահանեք կամ վերափոխեք տեքստային ֆայլերի

Հետևյալ կոդը կարող է օգնել ձեզ աշխատանքային գրքում բոլոր թերթերը արտահանել կամ վերափոխել տարանջատված Տեքստային ֆայլերի:

VBA կոդ. Բոլոր թերթերը արտահանեք տարանջատված տեքստային ֆայլեր

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

Արտահանված տեքստային ֆայլերը նույնպես գտնվում են Փաստաթղթեր թղթապանակ Տեսեք,

Excel- ի համար Kutools- ով պահեք, արտահանեք կամ փոխեք բազմաթիվ / բոլոր թերթերը CSV կամ տեքստային ֆայլ

YExcel- ում դուք կարող եք արագ արտահանել կամ փոխարկել բազմաթիվ կամ բոլոր թերթերը առանձին CSV ֆայլերի, տեքստային ֆայլերի կամ xls ֆայլերի ձևաչափի Պառակտում աշխատանքային գրքույկ օգտակարությունը Excel- ի համար նախատեսված գործիքներ.

1: սեղմեք Kutools Plus > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ, Տեսեք,

2. Մեջ Պառակտում աշխատանքային գրքույկ երկխոսության տուփ:

• 1) Եթե ​​ցանկանում եք բոլոր թերթերը վերափոխել CSV կամ տեքստային ֆայլերի, պարզապես բոլոր թերթիկների անունները ստուգված պահեք այնտեղ Աշխատաթերթի անվանումը տուփ; Եթե ​​դուք պարզապես ցանկանում եք փոխարկել բազմաթիվ թերթեր, շարունակեք ստուգել դրանք և հեռացնել ապացույցը այլ թերթերից, որոնք չեք ցանկանում փոխարկել:
• 2): Մեջ Ընտրանքներ բաժին, ստուգեք Պահել որպես տիպ տուփը և այնուհետև ընտրել Unicode տեքստ (*. Txt) or CSV (Macintosh) (*. Csv) բացվող ցուցակից:
• 3) Սեղմիր պառակտում կոճակը:

3. Մեջ Թերթիր պանակի համար երկխոսության տուփ, արտահանված ֆայլերը փրկելու համար նշեք պանակ և սեղմեք այն OK կոճակը:

Այժմ բոլոր թերթերը կամ նշված թերթերը փոխարկվում են առանձնացված csv կամ տեքստային ֆայլերի և տեղադրվում են պանակում, ինչպես վերը նշված եք:

Excel- ի համար Kutools- ով պահեք, արտահանեք կամ փոխեք բազմաթիվ / բոլոր թերթերը CSV կամ տեքստային ֆայլ