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

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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, 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 - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, 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 bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (6)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn vì những lời khuyên rất hữu ích của bạn. Tôi đã sử dụng mã vba để chuyển đổi một tệp excel có nhiều trang tính thành các tệp csv riêng lẻ. Tôi đang tự hỏi, làm cách nào để có thể chỉ định rằng tôi muốn các tệp csv đó là utf-8? Có phần bổ sung nào cho đoạn mã dưới đây sẽ thêm tính năng đó không? Public Sub SaveWorksheetsAsCsv () Dim xWs As Worksheet Dim xDir As String Dim thư mục As FileDialog Đặt thư mục = Application.FileDialog (msoFileDialogFolderPicker) If thư mục.Show -1 Then Exit Sub xDir = folder.SelectedItems (1) Cho mỗi xWs Trong ứng dụng.ActiveWorkbook .Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
ActiveWorkbook.SaveAs Filename: = Replace (Replace (xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat: = xlCSVUTF8, CreateBackup: = Sai
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để giữ và duy trì các giá trị số thập phân khi xuất trang tính excel sang CSV? dữ liệu tài chính yêu cầu độ chính xác của dữ liệu đến 3 số thập phân khi xuất sang CSV? xin vui lòng cho lời khuyên
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào prashan9810!
Trước khi xuất trang tính từ Excel sang CSV, bạn nên thay đổi định dạng của số đơn vị tiền tệ và sửa vị trí thập phân của chúng thành 3.
Bạn có thể thay đổi vị trí thập phân như sau:
1. Trong Excel, chọn các ô tiền tệ, nhấp chuột phải và chọn Format Cells từ trình đơn ngữ cảnh.
2. Trong hộp thoại Định dạng Ô, hãy chọn Tiền tệ or Kế toán trong Phân loại hộp danh sách, nhập 3 trong Vị trí thập phân hộp và nhấp OK.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn vì những lời khuyên này! Tôi đã thử sử dụng mã VBA nhưng tôi nhận được mã lỗi thời gian chạy 91 cho cú pháp sau:

Thư mục If.Show <> -1 Then Exit Sub

Bạn có thể giúp tôi gỡ rối? Tôi mới tham gia VBA. :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,

Hãy đảm bảo rằng chỉ có mã VBA từ hướng dẫn này trong cửa sổ Mô-đun của bạn. Nếu có các mã khác, vui lòng xóa hoặc chuyển chúng sang một mô-đun mới.

Sau đó, hãy chạy mã. Nếu nó vẫn không hoạt động, vui lòng sử dụng mã bên dưới:
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
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL