Skip i'r prif gynnwys

Sut i arbed neu allforio pob dalen fel ffeil CSV / PDF yn Excel?

Er enghraifft, mae gennych lyfr gwaith mawr gyda thaflenni lluosog, ac rydych chi am arbed neu allforio pob dalen fel ffeil .csv unigol neu ffeil PDF, sut i'w wneud yn hawdd ac yn gyflym? Yn yr erthygl hon, byddaf yn cyflwyno sawl dull i'w ddatrys.


Cadw neu allforio pob dalen fel ffeil CSV / PDF gyda nodwedd Save As

Fel y gwyddoch, gall Microsoft Excel arbed taflen waith gyfredol fel ffeil .csv unigol neu ffeil PDF. Felly, gallwch arbed neu allforio pob dalen fel ffeil .csv neu ffeil PDF fesul un â llaw.

1. Newid i'r ddalen y byddwch chi'n ei chadw neu'n ei hallforio fel ffeil .csv unigol, a chlicio Ffeil (neu Botwm swyddfa)> Save As.

2. Yn y blwch deialog agoriadol, nodwch y ffolder cyrchfan y byddwch chi'n cadw'r ffeil .csv ynddo, cliciwch y Cadw fel math blwch a dewis CSV (Amffin coma) (* .csv) or PDF (* .pdf) o'r gwymplen, a chliciwch ar y Save botwm.

3. Bydd dau flwch deialog rhybuddio yn dod allan yn olynol. Cliciwch OK > Ydy.

Nodyn: Os ydych chi'n cadw taflen waith weithredol fel ffeil PDF, ni fydd y blychau deialog hyn yn ymddangos. Ewch ymlaen i'r cam nesaf.

4. Ailadroddwch uwchben cam 1-3 i arbed dalennau eraill fel ffeiliau .csv unigol fesul un.


Swp arbed neu allforio pob dalen fel ffeil CSV gyda VBA

Os oes nifer o daflenni yr ydych am eu cadw neu eu hallforio fel ffeiliau .csv, bydd y dull cyntaf yn cymryd llawer o amser ac yn ddiflas. Gall y VBA hwn symleiddio gweithio a'i gwneud hi'n hawdd arbed neu allforio pob dalen fel ffeil .csv.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Application.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod VBA canlynol i mewn i ffenestr y modiwl newydd.

VBA: Cadwch bob dalen fel ffeil CSV unigol

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. Cliciwch ar y Run botwm neu wasg F5 allwedd i redeg y VBA hwn.

4. Yn y blwch deialog Pori agoriadol, nodwch y ffolder cyrchfan y byddwch chi'n arbed yr holl ffeiliau .csv ynddo, a chliciwch ar y OK botwm.

Yna fe welwch fod pob dalen yn cael ei chadw / allforio fel ffeil .csv unigol yn y ffolder cyrchfan penodedig.


Arbed swp neu allforio pob dalen fel ffeil CSV / PDF gyda Kutools ar gyfer Excel

Efallai y bydd rhai defnyddwyr Excel yn gwrthod cod VBA am rai rhesymau. Peidiwch â phoeni! Gall y trydydd dull hefyd swp-arbed neu allforio pob dalen fel ffeil .csv neu ffeil PDF yn hawdd gan y Llyfr Gwaith Hollti cyfleustodau Kutools ar gyfer Excel.

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

1. Cliciwch ar y Menter > Llyfr Gwaith > Llyfr Gwaith Hollti.

doc pob dalen i csv 2

2. Yn y blwch deialog agoriadol Split Workbook,

doc pob dalen i csv 8

(1) Daliwch i ddewis pob dalen. Os na, gallwch wirio'r blwch gwirio o'r blaen Enw'r daflen waith i ddewis pob dalen;

(2) Gwiriwch y Nodwch fformat arbed opsiwn;

(3) Cliciwch y blwch isod Nodwch fformat arbed dewis, a dewis CSV (Macintosh) (*. Csv) or PDF (* .pdf) o'r rhestr ostwng.

(4) Cliciwch y Hollti botwm.

 

Nodyn: Os oes taflenni gwaith cudd a gwag yn bodoli yn eich llyfr gwaith, gwiriwch y Hepgor taflenni gwaith cudd y blwch a'r Hepgor taflen waith wag bydd blwch yn anwybyddu'r holl daflenni gwag neu gudd wrth allforio.

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

3. Yn y blwch deialog Pori am Ffolder agoriadol, nodwch y ffolder cyrchfan y byddwch yn arbed yr holl ffeil .csv neu ffeil PDF ynddo, a chliciwch ar y OK botwm.

Nawr fe welwch fod pob dalen yn cael ei hallforio a'i chadw fel ffeil .csv unigol yn y ffolder penodedig.


Demo: arbed neu allforio pob dalen fel ffeil CSV / PDF yn Excel


Kutools ar gyfer Excel: Dros 300 o offer defnyddiol ar flaenau eich bysedd! Dechreuwch eich treial am ddim 30 diwrnod heb unrhyw gyfyngiadau nodwedd heddiw. Lawrlwytho Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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