Skip to main content

Conas gach bileog a shábháil nó a easpórtáil mar chomhad CSV / PDF in Excel?

Mar shampla, tá leabhar oibre mór agat le bileoga iolracha, agus ba mhaith leat gach bileog a shábháil nó a easpórtáil mar chomhad .csv aonair nó mar chomhad PDF, conas é a dhéanamh go héasca agus go tapa? San Airteagal seo, tabharfaidh mé isteach roinnt modhanna chun é a réiteach.


Sábháil nó easpórtáil gach bileog mar chomhad CSV / PDF le gné Save As

Mar is eol duit, is féidir le Microsoft Excel an bhileog oibre reatha a shábháil mar chomhad .csv aonair nó mar chomhad PDF. Dá bhrí sin, is féidir leat gach bileog a shábháil nó a easpórtáil mar chomhad .csv nó comhad PDF ceann ar cheann de láimh.

1. Athraigh go dtí an bhileog a shábhálfaidh tú nó a easpórtálfaidh tú mar chomhad .csv aonair, agus cliceáil Comhad (nó Cnaipe oifige)> Sábháil Mar.

2. Sa bhosca dialóige tosaigh, sonraigh an fillteán ceann scríbe a sábhálfaidh tú an comhad .csv ann, cliceáil an Ach amháin mar chineál bosca agus roghnaigh CSV (Teoranta le camóga) (* .csv) or PDF (* .pdf) ón liosta anuas, agus cliceáil ar an Sábháil cnaipe.

3. Beidh dhá bhosca dialóige rabhaidh ag teacht amach i ndiaidh a chéile. Cliceáil le do thoil OK > Is ea.

Nóta: Má shábhálann tú bileog oibre gníomhach mar chomhad PDF, ní bheidh na boscaí dialóige seo aníos. Téigh ar aghaidh go dtí an chéad chéim eile.

4. Déan arís os cionn chéim 1-3 chun bileoga eile a shábháil mar chomhaid .csv aonair ceann ar cheann.


Baisc gach bileog a shábháil nó a easpórtáil mar chomhad CSV le VBA

Má tá roinnt bileoga ann a theastaíonn uait a shábháil nó a easpórtáil mar chomhaid .csv, glacfaidh an chéad mhodh go leor ama agus tedious. Féadann an VBA seo an obair a shimpliú agus é a dhéanamh éasca gach bileog a shábháil nó a easpórtáil mar chomhad .csv.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Application a oscailt.

2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh an cód VBA seo a leanas i bhfuinneog an mhodúil nua.

VBA: Sábháil gach bileog mar chomhad CSV aonair

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. Cliceáil ar an Rith cnaipe nó brúigh F5 eochair chun an VBA seo a rith.

4. Sa bhosca dialóige Brabhsáil tosaigh, sonraigh an fillteán ceann scríbe a sábhálfaidh tú gach comhad .csv ann, agus cliceáil ar an OK cnaipe.

Ansin feicfidh tú go ndéantar gach bileog a shábháil / a onnmhairiú mar chomhad .csv aonair san fhillteán ceann scríbe sonraithe.


Baisc sábháil nó easpórtáil gach bileog mar chomhad CSV / PDF le Kutools for Excel

Féadfaidh roinnt úsáideoirí Excel cód VBA a dhiúltú ar chúiseanna áirithe. Ná bí buartha! Is féidir leis an tríú modh gach baisc a shábháil nó a easpórtáil mar chomhad .csv nó comhad PDF go héasca ag an Leabhar Oibre Scoilt fóntais Kutools le haghaidh Excel.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil ar an Fiontar > Leabhar Oibre > Leabhar Oibre Scoilt.

doc gach bileog go csv 2

2. Sa bhosca dialóige oscailte Leabhar Oibre Scoilt,

doc gach bileog go csv 8

(1) Coinnigh ort gach bileog a roghnú. Mura féidir, is féidir leat an ticbhosca a sheiceáil roimhe seo Ainm na bileoige oibre gach bileog a roghnú;

(2) Seiceáil an Sonraigh formáid sábháil rogha;

(3) Cliceáil an bosca thíos Sonraigh formáid sábháil rogha, agus roghnaigh CSV (Macintosh) (*. Csv) or PDF (* .pdf) ón liosta titim.

(4) Cliceáil ar an Scoilt cnaipe.

 

nótaí: Má tá bileoga oibre i bhfolach agus bán i do leabhar oibre, seiceáil an Scipeáil bileoga oibre i bhfolach bosca agus an Scipeáil bileog oibre bán tabharfaidh an bosca neamhaird ar gach bileog bhán nó i bhfolach agus é ag onnmhairiú.

Kutools le haghaidh Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as triail iomlán 30-lá SAOR IN AISCE gan aon chárta creidmheasa ag teastáil! Get sé anois

3. Sa bhosca dialóige Brabhsáil le haghaidh Fillteán tosaigh, sonraigh an fillteán ceann scríbe a shábhálfaidh tú gach comhad .csv nó comhad PDF isteach, agus cliceáil ar an OK cnaipe.

Anois feicfidh tú go ndéantar gach bileog a onnmhairiú agus a shábháil mar chomhad .csv aonair san fhillteán sonraithe.


Taispeántas: sábháil nó easpórtáil gach bileog mar chomhad CSV / PDF in Excel


Kutools le haghaidh Excel: Breis is 300 uirlis láimhe ar do mhéar! Cuir tús le do thriail saor in aisce 30-lá gan aon srianta gné inniu. Íosluchtaigh Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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