Note: The other languages of the website are Google-translated. Back to English

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 > Oes.

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.


Swp arbed 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 - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes 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 - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes 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 yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi am eich awgrymiadau defnyddiol iawn. Defnyddiais y cod vba i drosi ffeil excel gyda thaflenni lluosog yn ffeiliau csv unigol. Rwy'n meddwl tybed, sut y gallaf nodi yr hoffwn i'r ffeiliau csv hynny fod yn utf-8? A oes ychwanegiad i'r cod isod a fydd yn ychwanegu'r nodwedd honno? Is-gadw Cyhoeddus Taflenni GwaithAsCsv() Dim xWs Fel Taflen Waith Dim xDir Fel String Dim ffolder Fel FileDialog Gosod ffolder = Application.FileDialog(msoFileDialogFolderPicker) Os folder.Show -1 Yna Gadael Is xDir = folder.SelectedItems(1) Ar gyfer Pob xWs Yn Application.ActiveWorkbook .sheets xWs.SaveAs xDir & "\" &xWs.Name, xlCSV Is-Ddiwedd Nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ActiveWorkbook.SaveAs Filename:=Amnewid(Amnewid(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=Anghywir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i gadw a chynnal gwerthoedd degolion wrth allforio taflenni excel i CSV? mae data ariannol yn gofyn am gywirdeb data tan 3 degol wrth allforio i CSV? cynghorwch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo prashan9810,
Cyn allforio'r dalennau o Excel i CSV, byddai'n well ichi newid fformatio rhifau arian cyfred, a gosod eu lleoedd degol i 3.
Gallwch chi newid y lleoedd degol fel a ganlyn:
1. Yn Excel, dewiswch y celloedd arian cyfred, cliciwch ar y dde, a dewiswch Celloedd Fformat o'r ddewislen cyd-destun.
2. Yn y Celloedd Fformat deialog, dewiswch Arian cyfred or Cyfrifeg yn y categori blwch rhestr, mynd i mewn 3 yn y Lleoedd degol blwch, a chliciwch OK.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am yr awgrymiadau hyn! Ceisiais ddefnyddio'r cod VBA ond rwy'n cael cod gwall amser rhedeg 91 ar gyfer y gystrawen ganlynol:

Os folder.Show <> -1 Yna Ymadael Is

Allwch chi fy helpu i ddatrys problemau? Rwy'n newydd i VBA. :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,

Gwnewch yn siŵr mai dim ond y cod VBA o'r tiwtorial hwn sydd yn ffenestr eich Modiwl. Os oes codau eraill, dilëwch neu symudwch nhw i fodiwl newydd.

Ar ôl hynny, rhedwch y cod. Os nad yw'n gweithio o hyd, defnyddiwch y cod isod:
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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir