Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս պահպանել կամ արտահանել յուրաքանչյուր թերթը որպես CSV / PDF ֆայլ Excel- ում:

Օրինակ ՝ դուք ունեք մի մեծ աշխատանքային գրքույկ ՝ բազմաթիվ թերթերով, և ցանկանում եք յուրաքանչյուր թերթ պահել կամ արտահանել որպես անհատական ​​.csv ֆայլ կամ PDF ֆայլ, ինչպե՞ս դա անել, որ դա արվի հեշտությամբ և արագ: Այս հոդվածում ես կներկայացնեմ դրա լուծման մի քանի մեթոդներ:


Յուրաքանչյուր թերթը պահեք կամ արտահանեք որպես CSV / PDF ֆայլ ՝ Save As հնարավորությամբ

Ինչպես գիտեք, Microsoft Excel- ը կարող է պահպանել ընթացիկ աշխատանքային թերթը որպես անհատական ​​.csv ֆայլ կամ PDF ֆայլ: Հետեւաբար, յուրաքանչյուր թերթ կարող եք մեկ առ մեկ ձեռքով պահպանել կամ արտահանել որպես .csv ֆայլ կամ PDF ֆայլ:

1. Անցեք այն թերթին, որը դուք կփրկեք կամ արտահանեք որպես անհատական ​​.csv ֆայլ, և կտտացրեք Ֆայլ (Կամ Գրասենյակային կոճակ)> Պահել As.

2. Բացման երկխոսության դաշտում նշեք նպատակակետի պանակը, որի մեջ կփրկեք .csv ֆայլը, կտտացրեք այն Պահել որպես տիպ տուփը և ընտրել CSV (ստորակետով սահմանազատված) (* .csv) or PDF (* .pdf) բացվող ցուցակից և սեղմել Փրկել կոճակը:

3. Կլինեն երկու նախազգուշական երկխոսության տուփեր, որոնք հաջորդաբար դուրս կգան: Խնդրում ենք սեղմել OK > այո.

Նշում: Եթե ​​դուք ակտիվ աշխատանքային թերթը պահում եք որպես PDF ֆայլ, այս երկխոսության տուփերը չեն հայտնվի: Պարզապես անցեք հաջորդ քայլին:

4. Կրկնեք 1-3-րդ քայլից վերև `մյուս թերթերը որպես անհատական ​​.csv ֆայլեր մեկ առ մեկ պահպանելու համար:


Յուրաքանչյուր թերթը խմբաքանակով պահեք կամ արտահանեք որպես CSV ֆայլ VBA- ով

Եթե ​​կան մի շարք թերթեր, որոնք ցանկանում եք պահպանել կամ արտահանել որպես .csv ֆայլեր, առաջին մեթոդը կլինի բավականին ժամանակատար և հոգնեցուցիչ: Այս VBA- ն կարող է պարզեցնել աշխատանքը և հեշտացնել յուրաքանչյուր թերթի պահպանումը կամ արտահանումը որպես .csv ֆայլ:

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

2: սեղմեք Տեղադրել > Մոդուլներ, և ապա տեղադրեք հետևյալ VBA կոդը նոր մոդուլի պատուհանում:

VBA. Յուրաքանչյուր թերթ պահեք որպես առանձին 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. Սեղմեք Վազում կոճակը կամ սեղմել F5 այս VBA- ի գործարկման բանալին:

4. Բացվող rowննարկեք երկխոսության դաշտում նշեք նպատակակետի պանակը, որի մեջ կփրկեք բոլոր .csv ֆայլերը և կտտացրեք OK կոճակը:

Դրանից հետո կտեսնեք, որ յուրաքանչյուր թերթը պահվում / արտահանվում է որպես անհատական ​​.csv ֆայլ նշված նպատակային թղթապանակում:


Excel- ի համար Kutools- ի յուրաքանչյուր խմբաքանակ պահեք կամ արտահանեք որպես CSV / PDF ֆայլ

Excel- ի որոշ օգտվողներ որոշ պատճառներով կարող են հրաժարվել VBA կոդից: Մի անհանգստացիր! Երրորդ մեթոդը կարող է նաև խմբաքանակով փրկել կամ արտահանել յուրաքանչյուր թերթը որպես .csv ֆայլ կամ PDF ֆայլ հեշտությամբ կողմից Պառակտում աշխատանքային գրքույկ Excel- ի համար Kutools- ի օգտակարություն:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

1. Սեղմեք ձեռնարկություն > Աշխատանքային տետր > Պառակտում աշխատանքային գրքույկ.

փաստաթղթերը յուրաքանչյուր թերթի համար csv 2

2. Բացման Split Workbook երկխոսության դաշտում

փաստաթղթերը յուրաքանչյուր թերթի համար csv 8

(1) Շարունակեք ընտրել բոլոր թերթերը: Եթե ​​ոչ, նախ կարող եք ստուգել վանդակը Աշխատաթերթի անվանումը բոլոր թերթերը ընտրելու համար;

(2) Ստուգեք Նշեք պահպանման ձևաչափը տարբերակ;

(3) Կտտացրեք ներքևի տուփին Նշեք պահպանման ձևաչափը ընտրեք եւ ընտրեք CSV (Macintosh) (*. Csv) or PDF (* .pdf) իջնում ​​ցանկից:

(4) Կտտացրեք այն կոճակին պառակտում կոճակը:

 

ՆշումԵթե ​​ձեր աշխատանքային գրքում առկա են թաքնված և դատարկ աշխատաթերթեր, ստուգելով Բաց թողնել թաքնված աշխատանքային թերթերը տուփ եւ այլն Բաց թողնել դատարկ աշխատաթերթը արկղն արտահանելիս անտեսելու է բոլոր դատարկ կամ թաքնված թերթերը:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now

3. Բացելով Թերթիր Թղթապանակ երկխոսության վանդակում, նշեք նպատակակետի պանակը, որի մեջ կփրկեք բոլոր .csv ֆայլը կամ PDF ֆայլը և կտտացրեք OK կոճակը:

Այժմ կտեսնեք, որ յուրաքանչյուր թերթ արտահանվում և պահվում է որպես անհատական ​​.csv ֆայլ նշված պանակում:


Դեմո. Excel- ում յուրաքանչյուր թերթ պահեք կամ արտահանեք որպես CSV / PDF ֆայլ


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
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


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations