Прескочи на основното съдържание

Как да запишете или експортирате всеки лист като CSV/PDF файл в Excel?

Автор: Кели Последна промяна: 2020-04-30

Например имате голяма работна книга с няколко листа и искате да запазите или експортирате всеки лист като отделен .csv файл или PDF файл, как да го направите лесно и бързо? В тази статия ще представя няколко метода за решаването му.


Запазете или експортирайте всеки лист като CSV/PDF файл с функцията Запиши като

Както знаете, Microsoft Excel може да запази текущия работен лист като отделен .csv файл или PDF файл. Следователно можете да запазите или експортирате всеки лист като .csv файл или PDF файл един по един ръчно.

1. Превключете към листа, който ще запазите или експортирате като отделен .csv файл, и щракнете досие (или Офис бутон)> Save As.

2. В отварящия се диалогов прозорец посочете целевата папка, в която ще запишете .csv файла, щракнете върху Запиши като тип и изберете CSV (разделени със запетаи) (*.csv) or PDF (* .pdf) от падащия списък и щракнете върху Save бутон.

3. Ще има два предупредителни диалогови прозореца, излизащи последователно. Моля щракнете OK > Да.

Забележка: Ако запишете активен работен лист като PDF файл, тези диалогови прозорци няма да изскочат. Просто преминете към следващата стъпка.

4. Повторете горните стъпки 1-3, за да запазите други листове като отделни .csv файлове един по един.


Пакетно запазване или експортиране на всеки лист като CSV файл с VBA

Ако има няколко листа, които искате да запазите или експортирате като .csv файлове, първият метод ще отнеме доста време и ще бъде досаден. Този VBA може да опрости работата и да улесни запазването или експортирането на всеки лист като .csv файл.

1. Натиснете Друг + F11 клавиши едновременно, за да отворите прозореца на Microsoft Visual Basic for Application.

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. В отварящия се диалогов прозорец Преглед посочете целевата папка, в която ще запишете всички .csv файлове, и щракнете върху OK бутон.

След това ще видите, че всеки лист е записан/експортиран като отделен .csv файл в указаната целева папка.


Пакетно запазване или експортиране на всеки лист като CSV/PDF файл с Kutools за Excel

Някои потребители на Excel може да откажат VBA код по някакви причини. Не се безпокой! Третият метод може също да групово запазва или експортира всеки лист като .csv файл или PDF файл лесно от Разделена работна книга полезност на Kutools за Excel.

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега

1. Щракнете върху Enterprise > Workbook > Разделена работна книга.

документирайте всеки лист в csv 2

2. В отварящия се диалогов прозорец Разделяне на работна книга,

документирайте всеки лист в csv 8

(1) Продължете да избирате всички листове. Ако не, можете да поставите отметка в квадратчето преди това Име на работен лист да изберете всички листове;

(2) Проверете Посочете формат за запазване опция;

(3) Щракнете върху квадратчето по-долу Посочете формат за запазване опция и изберете CSV (Macintosh) (*.csv) or PDF (* .pdf) от падащия списък.

(4) Щракнете върху разцепен бутон.

 

Забележка: Ако във вашата работна книга има скрити и празни работни листове, проверете Пропуснете скритите работни листове и кутията Пропускане на празен работен лист ще игнорира всички празни или скрити листове при експортиране.

Kutools за Excel - Заредете Excel с над 300 основни инструмента. Насладете се на пълнофункционален 30-дневен БЕЗПЛАТЕН пробен период без кредитна карта! Вземи Го Сега

3. В отварящия се диалогов прозорец Преглед на папка, посочете целевата папка, в която ще запишете всички .csv файлове или PDF файлове, и щракнете върху OK бутон.

Сега ще видите, че всеки лист е експортиран и записан като отделен .csv файл в указаната папка.


Демонстрация: запишете или експортирайте всеки лист като CSV/PDF файл в Excel


Kutools за Excel: Над 300 удобни инструмента на една ръка разстояние! Започнете своя 30-дневен безплатен пробен период без ограничения на функциите днес. Свали сега!

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, 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