Перейти до основного матеріалу

Як зберегти або експортувати кожен аркуш як файл CSV / PDF в Excel?

Наприклад, у вас є велика книга з декількома аркушами, і ви хочете зберегти або експортувати кожен аркуш як окремий файл .csv або файл PDF, як це зробити легко і швидко? У цій статті я представив кілька методів її вирішення.

Збережіть або експортуйте кожен аркуш як файл CSV / PDF із функцією Зберегти як

Як відомо, Microsoft Excel може зберігати поточний аркуш як окремий файл .csv або файл PDF. Таким чином, ви можете зберігати або експортувати кожен аркуш як файл .csv або файл PDF по одному вручну.

1. Перейдіть до аркуша, який ви збережете або експортуєте як окремий файл .csv, та натисніть філе (Або Кнопка офісу)> Зберегти як.

2. У діалоговому вікні, що відкриється, вкажіть цільову папку, до якої ви будете зберігати файл .csv, натисніть Зберегти як і виберіть CSV (з комою) (* .csv) or PDF (* .pdf) зі спадного списку та натисніть зберегти кнопки.

3. Послідовно з’являтимуться два діалогові вікна із попередженнями. Клацніть, будь ласка OK > Так.

Примітка: Якщо ви збережете активний аркуш як файл PDF, ці діалогові вікна не з’являться. Просто перейдіть до наступного кроку.

4. Повторіть вище кроки 1-3, щоб зберегти інші аркуші як окремі файли .csv по одному.

Пакетно зберігайте або експортуйте кожен аркуш як файл CSV із VBA

Якщо існує декілька аркушів, які ви хочете зберегти або експортувати як .csv-файли, перший спосіб буде досить трудомістким і нудним. Цей VBA може спростити роботу та спростити збереження або експортування кожного аркуша у форматі .csv-файлу.

1. прес інший + F11 одночасно відкрити вікно Microsoft Visual Basic for Application.

2. клацання Insert > Модулі, а потім вставте наступний код 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-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

1. Натисніть підприємство > робочий зошит > Роздільна робоча книга.

документуйте кожен аркуш у csv 2

2. У діалоговому вікні Розділити робочу книгу відкрийте

документуйте кожен аркуш у csv 8

(1) Продовжуйте відбирати всі аркуші. Якщо ні, ви можете встановити прапорець раніше Назва робочого аркуша виділити всі аркуші;

(2) Перевірте Вкажіть формат збереження варіант;

(3) Клацніть поле нижче Вкажіть формат збереження опція та виберіть CSV (Macintosh) (*. Csv) or PDF (* .pdf) зі списку.

(4) Клацніть на розщеплений кнопки.

 

примітки: Якщо у вашій книзі є приховані та порожні аркуші, перевірте Пропустити приховані аркуші коробка і Пропустити порожній аркуш поле буде ігнорувати всі порожні або приховані аркуші під час експорту.

Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now

3. У діалоговому вікні Огляд папки, що відкривається, вкажіть цільову папку, до якої ви збережете весь файл .csv або файл PDF, та натисніть OK кнопки.

Тепер ви побачите, як кожен аркуш експортується та зберігається як окремий файл .csv у зазначеній папці.

Демонстрація: збережіть або експортуйте кожен аркуш як файл CSV / PDF у програмі Excel


Kutools для Excel: понад 300 зручних інструментів у вас під рукою! Почніть 30-денну безкоштовну пробну версію без обмежень функцій сьогодні. Завантажити зараз!

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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!
Angela
Angela
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!
Reply
0
0
Charlene
Charlene
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. :)
Reply
0
0
Amanda Lee
Amanda Lee     Charlene
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
Reply
Report
0
0
prashant9810
prashant9810
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
Reply
Report
0
0
kellytte
kellytte     prashant9810
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.
View Attachments (1 / 5)
Reply
Report
0
0
Pav
Pav
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
Reply
0
0
Sriraj
Sriraj     Pav
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations