Bỏ qua nội dung chính

Làm cách nào để lưu hoặc xuất từng trang tính dưới dạng tệp CSV / PDF trong Excel?

Ví dụ: bạn có một sổ làm việc lớn với nhiều trang tính và bạn muốn lưu hoặc xuất từng trang tính dưới dạng tệp .csv hoặc tệp PDF riêng lẻ, làm thế nào để hoàn thành việc này một cách dễ dàng và nhanh chóng? Trong bài viết này, tôi sẽ giới thiệu một số phương pháp để giải quyết nó.


Lưu hoặc xuất từng trang tính dưới dạng tệp CSV / PDF với tính năng Lưu dưới dạng

Như bạn đã biết, Microsoft Excel có thể lưu trang tính hiện tại dưới dạng tệp .csv hoặc tệp PDF riêng lẻ. Do đó, bạn có thể lưu hoặc xuất từng trang tính dưới dạng tệp .csv hoặc tệp PDF theo cách thủ công.

1. Chuyển sang trang tính mà bạn sẽ lưu hoặc xuất dưới dạng tệp .csv riêng lẻ và nhấp vào Tập tin (Hoặc Nút văn phòng)> Save As.

2. Trong hộp thoại mở, chỉ định thư mục đích mà bạn sẽ lưu tệp .csv vào, nhấp vào Save as type hộp và chọn CSV (Phân cách bằng dấu phẩy) (* .csv) or PDF (* .pdf) từ danh sách thả xuống và nhấp vào Lưu .

3. Sẽ có hai hộp thoại cảnh báo liên tiếp xuất hiện. Vui lòng bấm vào OK > .

Lưu ý: Nếu bạn lưu trang tính đang hoạt động dưới dạng tệp PDF, các hộp thoại này sẽ không bật lên. Chỉ cần tiếp tục bước tiếp theo.

4. Lặp lại bước 1-3 ở trên để lưu từng trang tính khác dưới dạng tệp .csv riêng lẻ.


Lưu hàng loạt hoặc xuất từng trang tính dưới dạng tệp CSV với VBA

Nếu có một số trang mà bạn muốn lưu hoặc xuất dưới dạng tệp .csv, phương pháp đầu tiên sẽ khá tốn thời gian và tẻ nhạt. VBA này có thể đơn giản hóa công việc và giúp bạn dễ dàng lưu hoặc xuất từng trang tính dưới dạng tệp .csv.

1. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Application.

2. nhấp chuột Chèn > Mô-đun, rồi dán mã VBA sau vào cửa sổ mô-đun mới.

VBA: Lưu mọi trang tính dưới dạng tệp CSV riêng lẻ

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. Nhấp vào chạy nút hoặc bấm F5 để chạy VBA này.

4. Trong hộp thoại Duyệt mở, chỉ định thư mục đích mà bạn sẽ lưu tất cả các tệp .csv vào, và nhấp vào OK .

Sau đó, bạn sẽ thấy mọi trang tính được lưu / xuất dưới dạng tệp .csv riêng lẻ trong thư mục đích được chỉ định.


Lưu hàng loạt hoặc xuất từng trang tính dưới dạng tệp CSV / PDF với Kutools cho Excel

Một số người dùng Excel có thể từ chối mã VBA vì một số lý do. Đừng lo! Phương pháp thứ ba cũng có thể lưu hàng loạt hoặc xuất từng trang tính dưới dạng tệp .csv hoặc tệp PDF một cách dễ dàng bằng cách Chia sổ làm việc tiện ích của Kutools cho Excel.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

1. Nhấp vào Doanh nghiệp > Bảng tính > Chia sổ làm việc.

doc từng tờ sang csv 2

2. Trong hộp thoại Split Workbook đang mở,

doc từng tờ sang csv 8

(1) Tiếp tục chọn tất cả các trang tính. Nếu không, bạn có thể đánh dấu vào hộp kiểm trước Tên trang tính để chọn tất cả các trang tính;

(2) Kiểm tra Chỉ định định dạng lưu Tùy chọn;

(3) Nhấp vào hộp bên dưới Chỉ định định dạng lưu tùy chọn và chọn CSV (Macintosh) (*. Csv) or PDF (* .pdf) từ danh sách thả xuống.

(4) Nhấp vào chẻ .

 

Chú thích: Nếu có trang tính ẩn và trống tồn tại trong sổ làm việc của bạn, hãy kiểm tra Bỏ qua trang tính ẩn hộp và Bỏ qua trang tính trống hộp sẽ bỏ qua tất cả các trang tính trống hoặc ẩn trong khi xuất.

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

3. Trong hộp thoại Mở Duyệt cho Thư mục, chỉ định thư mục đích mà bạn sẽ lưu tất cả tệp .csv hoặc tệp PDF vào, và nhấp vào OK .

Bây giờ bạn sẽ thấy mọi trang tính được xuất và lưu dưới dạng tệp .csv riêng lẻ trong thư mục được chỉ định.


Demo: lưu hoặc xuất từng trang tính dưới dạng tệp CSV / PDF trong Excel


Kutools cho Excel: Hơn 300 công cụ tiện dụng trong tầm tay bạn! Bắt đầu dùng thử miễn phí 30 ngày không có giới hạn tính năng ngay hôm nay. Download Now!

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
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